All you need is a Typelib with access to ITaskbar and 2 and 3.
do you need to access ITaskBar2 then just do this...
Set pITB2 = pITB
Or if you need ITaskBar3
Set pITB3 = pITB
Done! Have Fun ;):):D
Code:
Public Function ShGetTaskBar(pITB As ITaskbarList) As Long
Dim hr As Long
Static CLSID_TaskbarList As GUID
CLSIDFromString2 StrPtr(sCLSID_TaskBar), CLSID_TaskbarList
hr = CoCreateInstance(CLSID_TaskbarList, 0&, CLSCTX_INPROC_SERVER, IID_ITaskbarList, pITB)
ShGetTaskBar = hr
End FunctionSet pITB2 = pITB
Or if you need ITaskBar3
Set pITB3 = pITB
Done! Have Fun ;):):D