Namespace TaskbarLib

    <ComImport(), Guid("56FDF344-FD6D-11D0-958A-006097C9A090"), ClassInterface(CShort(0)), TypeLibType(CShort(2))> Public Class TaskbarListClass
        Implements ITaskbarList3, ITaskbarList2, ITaskbarList

        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Public Sub New()
        End Sub
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Public Overridable Sub HrInit() Implements ITaskbarList3.HrInit, ITaskbarList2.HrInit, ITaskbarList.HrInit
        End Sub
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
        Public Overridable Sub ActivateTab(<[In]()> ByVal hwnd As IntPtr) Implements ITaskbarList3.ActivateTab, ITaskbarList2.ActivateTab, ITaskbarList.ActivateTab
        End Sub
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
        Public Overridable Sub AddTab(<[In]()> ByVal hwnd As IntPtr) Implements ITaskbarList3.AddTab, ITaskbarList2.AddTab, ITaskbarList.AddTab
        End Sub
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
        Public Overridable Sub DeleteTab(<[In]()> ByVal hwnd As IntPtr) Implements ITaskbarList3.DeleteTab, ITaskbarList2.DeleteTab, ITaskbarList.DeleteTab
        End Sub
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
        Public Overridable Sub MarkFullscreenWindow(<[In]()> ByVal hwnd As IntPtr, <[In]()> ByVal fFullscreen As Integer) Implements ITaskbarList3.MarkFullscreenWindow, ITaskbarList2.MarkFullscreenWindow
        End Sub
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
        Public Overridable Sub RegisterTab(<[In]()> ByVal hwndTab As IntPtr, <[In](), ComAliasName("TaskbarLib.wireHWND")> ByRef hwndMDI As RemotableHandle) Implements ITaskbarList3.RegisterTab
        End Sub
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
        Public Overridable Sub SetActivateAlt(<[In]()> ByVal hwnd As IntPtr) Implements ITaskbarList3.SetActivateAlt, ITaskbarList2.SetActivateAlt, ITaskbarList.SetActivateAlt
        End Sub
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
        Public Overridable Sub SetOverlayIcon(<[In]()> ByVal hwnd As IntPtr, <[In]()> ByVal hIcon As IntPtr, <[In](), MarshalAs(UnmanagedType.LPWStr)> ByVal pszDescription As String) Implements ITaskbarList3.SetOverlayIcon
        End Sub

        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
        Public Overridable Sub SetProgressState(<[In]()> ByVal hwnd As IntPtr, <[In]()> ByVal tbpFlags As TBPFLAG) Implements ITaskbarList3.SetProgressState
        End Sub
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
        Public Overridable Sub SetProgressValue(<[In]()> ByVal hwnd As IntPtr, <[In]()> ByVal ullCompleted As Integer, <[In]()> ByVal ullTotal As Integer) Implements ITaskbarList3.SetProgressValue
        End Sub
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
        Public Overridable Sub SetTabActive(<[In]()> ByVal hwndTab As IntPtr, <[In]()> ByVal hwndMDI As Integer, <[In]()> ByVal tbatFlags As TBATFLAG) Implements ITaskbarList3.SetTabActive
        End Sub
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
        Public Overridable Sub SetTabOrder(<[In]()> ByVal hwndTab As IntPtr, <[In]()> ByVal hwndInsertBefore As Integer) Implements ITaskbarList3.SetTabOrder
        End Sub
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
        Public Overridable Sub SetThumbnailClip(<[In]()> ByVal hwnd As IntPtr, <[In]()> ByRef prcClip As tagRECT) Implements ITaskbarList3.SetThumbnailClip
        End Sub
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
        Public Overridable Sub SetThumbnailTooltip(<[In]()> ByVal hwnd As IntPtr, <[In](), MarshalAs(UnmanagedType.LPWStr)> ByVal pszTip As String) Implements ITaskbarList3.SetThumbnailTooltip
        End Sub
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
        Public Overridable Sub ThumbBarAddButtons(<[In]()> ByVal hwnd As IntPtr, <[In]()> ByVal cButtons As UInt32, <[In]()> ByRef pButton As tagTHUMBBUTTON) Implements ITaskbarList3.ThumbBarAddButtons
        End Sub
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
        Public Overridable Sub ThumbBarSetImageList(<[In]()> ByVal hwnd As IntPtr, <[In](), MarshalAs(UnmanagedType.IUnknown)> ByVal himl As Object) Implements ITaskbarList3.ThumbBarSetImageList
        End Sub
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
        Public Overridable Sub ThumbBarUpdateButtons(<[In]()> ByVal hwnd As IntPtr, <[In]()> ByVal cButtons As UInt32, <[In]()> ByRef pButton As tagTHUMBBUTTON) Implements ITaskbarList3.ThumbBarUpdateButtons
        End Sub
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> _
        Public Overridable Sub UnregisterTab(<[In]()> ByVal hwndTab As IntPtr) Implements ITaskbarList3.UnregisterTab
        End Sub

    End Class

    <ComImport(), InterfaceType(CShort(1)), Guid("56FDF342-FD6D-11D0-958A-006097C9A090")> Public Interface ITaskbarList
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub HrInit()
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub AddTab(<[In]()> ByVal hwnd As IntPtr)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub DeleteTab(<[In]()> ByVal hwnd As IntPtr)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub ActivateTab(<[In]()> ByVal hwnd As IntPtr)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub SetActivateAlt(<[In]()> ByVal hwnd As IntPtr)
    End Interface

    <ComImport(), Guid("602D4995-B13A-429B-A66E-1935E44F4317"), InterfaceType(CShort(1))> Public Interface ITaskbarList2
        Inherits ITaskbarList
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Overloads Sub HrInit()
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Overloads Sub AddTab(<[In]()> ByVal hwnd As IntPtr)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Overloads Sub DeleteTab(<[In]()> ByVal hwnd As IntPtr)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Overloads Sub ActivateTab(<[In]()> ByVal hwnd As IntPtr)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Overloads Sub SetActivateAlt(<[In]()> ByVal hwnd As IntPtr)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub MarkFullscreenWindow(<[In]()> ByVal hwnd As IntPtr, <[In]()> ByVal fFullscreen As Integer)
    End Interface

    <ComImport(), InterfaceType(CShort(1)), Guid("EA1AFB91-9E28-4B86-90E9-9E9F8A5EEFAF")> Public Interface ITaskbarList3
        Inherits ITaskbarList2
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Overloads Sub HrInit()
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Overloads Sub AddTab(<[In]()> ByVal hwnd As IntPtr)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Overloads Sub DeleteTab(<[In]()> ByVal hwnd As IntPtr)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Overloads Sub ActivateTab(<[In]()> ByVal hwnd As IntPtr)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Overloads Sub SetActivateAlt(<[In]()> ByVal hwnd As IntPtr)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Overloads Sub MarkFullscreenWindow(<[In]()> ByVal hwnd As IntPtr, <[In]()> ByVal fFullscreen As Integer)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub SetProgressValue(<[In]()> ByVal hwnd As IntPtr, <[In]()> ByVal ullCompleted As Integer, <[In]()> ByVal ullTotal As Integer) 'UInt64
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub SetProgressState(<[In]()> ByVal hwnd As IntPtr, <[In]()> ByVal tbpFlags As TBPFLAG)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub RegisterTab(<[In]()> ByVal hwndTab As IntPtr, <[In](), ComAliasName("TaskbarLib.wireHWND")> ByRef hwndMDI As RemotableHandle)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub UnregisterTab(<[In]()> ByVal hwndTab As IntPtr)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub SetTabOrder(<[In]()> ByVal hwndTab As IntPtr, <[In]()> ByVal hwndInsertBefore As Integer)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub SetTabActive(<[In]()> ByVal hwndTab As IntPtr, <[In]()> ByVal hwndMDI As Integer, <[In]()> ByVal tbatFlags As TBATFLAG)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub ThumbBarAddButtons(<[In]()> ByVal hwnd As IntPtr, <[In]()> ByVal cButtons As UInt32, <[In]()> ByRef pButton As tagTHUMBBUTTON)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub ThumbBarUpdateButtons(<[In]()> ByVal hwnd As IntPtr, <[In]()> ByVal cButtons As UInt32, <[In]()> ByRef pButton As tagTHUMBBUTTON)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub ThumbBarSetImageList(<[In]()> ByVal hwnd As IntPtr, <[In](), MarshalAs(UnmanagedType.IUnknown)> ByVal himl As Object)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub SetOverlayIcon(<[In]()> ByVal hwnd As IntPtr, <[In]()> ByVal hIcon As IntPtr, <[In](), MarshalAs(UnmanagedType.LPWStr)> ByVal pszDescription As String)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub SetThumbnailTooltip(<[In]()> ByVal hwnd As IntPtr, <[In](), MarshalAs(UnmanagedType.LPWStr)> ByVal pszTip As String)
        <MethodImpl(MethodImplOptions.InternalCall, MethodCodeType:=MethodCodeType.Runtime)> Sub SetThumbnailClip(<[In]()> ByVal hwnd As IntPtr, <[In]()> ByRef prcClip As tagRECT)
    End Interface

    <ComImport(), CoClass(GetType(TaskbarListClass)), Guid("EA1AFB91-9E28-4B86-90E9-9E9F8A5EEFAF")> Public Interface TaskbarList
        Inherits ITaskbarList3
    End Interface

    <StructLayout(LayoutKind.Sequential, Pack:=4)> Public Structure tagRECT
        Public left As Integer
        Public top As Integer
        Public right As Integer
        Public bottom As Integer
    End Structure

    <StructLayout(LayoutKind.Sequential, Pack:=4)> Public Structure RemotableHandle
        Public fContext As Integer
        Public u As IWinTypes
    End Structure

    <StructLayout(LayoutKind.Explicit, Pack:=4)> Public Structure IWinTypes
        <FieldOffset(0)> Public hInproc As Integer
        <FieldOffset(0)> Public hRemote As Integer
    End Structure

    <StructLayout(LayoutKind.Sequential, Pack:=4)> Public Structure tagTHUMBBUTTON
        Public dwMask As UInt32
        Public iId As UInt32
        Public iBitmap As UInt32
        <MarshalAs(UnmanagedType.IUnknown)> Public hIcon As Object
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=260)> Public szTip As UInt16()
        Public dwFlags As UInt32
    End Structure

    <Flags()> Public Enum TBATFLAG
        TBATF_USEMDILIVEPREVIEW = 2
        TBATF_USEMDITHUMBNAIL = 1
    End Enum

    <Flags()> Public Enum TBPFLAG
        TBPF_ERROR = 4
        TBPF_INDETERMINATE = 1
        TBPF_NOPROGRESS = 0
        TBPF_NORMAL = 2
        TBPF_PAUSED = 8
    End Enum

End Namespace