Public Declare Auto Function mciGetErrorString Lib "winmm.dll" (ByVal errorCode As Integer, ByRef errorText As StringBuilder, ByVal errorTextSize As Integer) As Integer

Declare Ansi Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal command As String, ByRef buffer As StringBuilder, ByVal bufferSize As Integer, ByVal hWndCallback As IntPtr) As Integer

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

Declare Function midiOutClose Lib "winmm.dll" (ByRef phMidiOut As IntPtr) As Uinteger

    <DllImport("winmm.dll")> Shared Function midiOutOpen(ByRef lphMidiOut As IntPtr, ByVal uDeviceID As UInteger, ByVal dwCallback As IntPtr, ByVal dwInstance As IntPtr, ByVal dwFlags As UInteger) As UInteger

Declare Function mixerGetControlDetails Lib "winmm.dll" (<MarshalAs(UnmanagedType.I4)> ByVal hmxobj As Integer, ByRef pmxcd As MIXERCONTROLDETAILS, ByVal fdwDetails As Integer) As Integer

   Private Shared Function MixerGetDevCaps(ByVal mixerId As Integer, ByRef mixerCaps As MixerCaps, ByVal mixerCapsSize As Integer) As UInteger

Shared Function mixerGetID(<MarshalAs(UnmanagedType.I4)> ByVal hmxobj As Integer, ByRef puMxId As UInteger, ByVal fdwId As MixerFlags) As MMRESULT

   ByRef pmxlc As MIXERLINECONTROLS, fdwControls As Integer) As Integer

Shared Function mixerGetLineInfo(<MarshalAs(UnmanagedType.I4)> ByVal hmxobj As Integer, ByRef pmxl As MIXERLINE, ByVal fdwInfo As MixerFlags) As MMRESULT

Declare Function mixerOpen Lib "winmm.dll" (ByRef phmx As IntPtr, ByVal pMxId As UInteger, ByVal dwCallback As IntPtr, ByVal dwInstance As IntPtr, ByVal fdwOpen As UInteger) As Integer

Declare Function timeGetDevCaps Lib "winmm.dll" (ByRef lpTimeCaps As TimeCaps, ByVal uSize As UInt32) As UInt32

Shared Function waveInAddBuffer(<MarshalAs(UnmanagedType.I4)> ByVal hwi As Integer, ByRef pwh As WAVEHDR, ByVal cbwh As UInteger) As MMRESULT

When recording waveform audio, usually buffers are allocated with unmanaged functions and kept in an IntPtr() array; for this reason the function is provided in two versions, one processing a WAVEHDR ByRef and the other working with an IntPtr.

Shared Function waveInUnprepareHeader(<MarshalAs(UnmanagedType.I4)> ByVal hwi As Integer, ByRef pwh As WAVEHDR, ByVal cbwh As UInteger) As MMRESULT

Declare Auto Function waveOutGetDevCaps Lib "winmm.dll" (ByVal uDeviceID as Integer, ByRef lpCaps As WAVEOUTCAPS, _

Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal hwo As IntPtr, ByRef dwVolume As UInteger) As Integer

Declare Function waveOutOpen Lib "winmm.dll" Alias "waveOutOpen" (ByRef phwi As IntPtr, ByVal uDeviceID As IntPtr, ByRef pwfx As WAVEFORMATEX, ByVal dwCallback As IntPtr, ByVal dwCallbackInstance As IntPtr, ByVal fdwOpen As WAVE_FLAGS) As MMSYSERR

Declare Function waveOutOpen Lib "winmm.dll" Alias "waveOutOpen" (ByRef phwi As IntPtr, ByVal uDeviceID As IntPtr, ByRef pwfx As WAVEFORMATEXTENSIBLE, ByVal dwCallback As IntPtr, ByVal dwCallbackInstance As IntPtr, ByVal fdwOpen As WAVE_FLAGS) As MMSYSERR

      Sub BeforeNavigate2(<MarshalAs(UnmanagedType.IDispatch)> ByVal pDisp As Object, <In> ByRef URL As Object, <In> ByRef Flags As Object, <In> ByRef TargetFrameName As Object, <In> ByRef PostData As Object, <In> ByRef Headers As Object, <In, Out, MarshalAs(UnmanagedType.VariantBool)> ByRef Cancel As Boolean)

      Sub ClientToHostWindow(<In, Out> ByRef CX As Integer, <In, Out> ByRef CY As Integer)

      Sub DocumentComplete(<MarshalAs(UnmanagedType.IDispatch)> ByVal pDisp As Object, <In> ByRef URL As Object)

      Sub FileDownload(<In, Out, MarshalAs(UnmanagedType.VariantBool)> ByRef Cancel As Boolean)

      Sub NavigateComplete2(<MarshalAs(UnmanagedType.IDispatch)> ByVal pDisp As Object, <In> ByRef URL As Object)

      Sub NavigateError(<MarshalAs(UnmanagedType.IDispatch)> ByVal pDisp As Object, <In> ByRef URL As Object, <In> ByRef Frame As Object, <In> ByRef StatusCode As Object, <In, Out, MarshalAs(UnmanagedType.VariantBool)> ByRef Cancel As Boolean)

      Sub NewWindow2(<In, Out, MarshalAs(UnmanagedType.IDispatch)> ByRef ppDisp As Object, <In, Out, MarshalAs(UnmanagedType.VariantBool)> ByRef Cancel As Boolean)

      Sub NewWindow3(<In, Out, MarshalAs(UnmanagedType.IDispatch)> ByRef ppDisp As Object, <In, Out, MarshalAs(UnmanagedType.VariantBool)> ByRef Cancel As Boolean, ByVal dwFlags As UInt32, <MarshalAs(UnmanagedType.BStr)> ByVal bstrUrlContext As String, <MarshalAs(UnmanagedType.BStr)> ByVal bstrUrl As String)

      Sub UpdatePageStatus(<MarshalAs(UnmanagedType.IDispatch)> ByVal pDisp As Object, <In> ByRef nPage As Object, <In> ByRef fDone As Object)

      Sub WindowClosing(<MarshalAs(UnmanagedType.VariantBool)> ByVal IsChildWindow As Boolean, <In, Out, MarshalAs(UnmanagedType.VariantBool)> ByRef Cancel As Boolean)

    Function GetWallpaperOptions(ByRef pwpo As WALLPAPEROPT, ByVal dwReserved As Integer) As Integer

    Function SetWallpaperOptions(ByRef pwpo As WALLPAPEROPT, ByVal dwReserved As Integer) As Integer

    Function GetDesktopItemOptions(ByRef pco As COMPONENTSOPT, ByVal dwReserved As Integer) As Integer

    Function SetDesktopItemOptions(ByRef pco As COMPONENTSOPT, ByVal dwReserved As Integer) As Integer

    Function AddDesktopItem(ByRef pcomp As COMPONENT, ByVal dwReserved As Integer) As Integer

    Function AddDesktopItemWithUI(ByVal hwnd As IntPtr, ByRef pcomp As COMPONENT, ByVal dwFlags As DtiAddUI) As Integer

    Function ModifyDesktopItem(ByRef pcomp As COMPONENT, ByVal dwFlags As ComponentModify) As Integer

    Function RemoveDesktopItem(ByRef pcomp As COMPONENT, ByVal dwReserved As Integer) As Integer

    Function GetDesktopItemCount(<Out()> ByRef lpiCount As Integer, ByVal dwReserved As Integer) As Integer

    Function GetDesktopItem(ByVal nComponent As Integer, ByRef pcomp As COMPONENT, ByVal dwReserved As Integer) As Integer

    Function GetDesktopItemByID(ByVal dwID As IntPtr, ByRef pcomp As COMPONENT, ByVal dwReserved As Integer) As Integer

    Function GenerateDesktopItemHtml(<MarshalAs(UnmanagedType.LPWStr)> ByVal pwszFileName As String, ByRef pcomp As COMPONENT, ByVal dwReserved As Integer) As Integer

    Function AddUrl(ByVal hwnd As IntPtr, <MarshalAs(UnmanagedType.LPWStr)> ByVal pszSource As String, ByRef pcomp As COMPONENT, ByVal dwFlags As AddURL) As Integer

    Function GetDesktopItemBySource(<MarshalAs(UnmanagedType.LPWStr)> ByVal pwszSource As String, ByRef pcomp As COMPONENT, ByVal dwReserved As Integer) As Integer

    <MarshalAs(UnmanagedType.LPWStr)> ByRef string pszUsername,

    <MarshalAs(UnmanagedType.LPWStr)> ByRef string pszPassword)

    Sub GetPriority(ByRef pnPriority As Integer)

    Sub GetBindResult(ByRef pclsidProtocol As Guid, ByRef pdwResult As UInteger, <MarshalAs(UnmanagedType.LPWStr)> ByRef pszResult As String, <[In](), [Out]()> ByRef dwReserved As UInteger)

    Sub GetBandInfo(dwBandID As UInt32, dwViewMode As UInt32, ByRef pdbi As DESKBANDINFO)

    Sub CanRenderComposited(ByRef pfCanRenderComposited As Boolean)

    Sub GetCompositionState(ByRef pfCompositionEnabled As Boolean)

    ' Function ShowDeskBand(<[In](), MarshalAs(UnmanagedType.Struct)> ByRef clsid As Guid) As Integer Implements IDeskBand2.ShowDeskBand

    ' Function HideDeskBand(<[In](), MarshalAs(UnmanagedType.Struct)> ByRef clsid As Guid) As Integer Implements IDeskBand.HideDeskBand

    ' Function IsDeskBandShown(<[In](), MarshalAs(UnmanagedType.Struct)> ByRef clsid As Guid) As Integer Implements IDeskBand2.IsDeskBandShown

    Public Overridable Sub GetBandInfo(dwBandID As UInt32, dwViewMode As UInt32, ByRef dbi As DESKBANDINFO) Implements IDeskBand.GetBandInfo, IDeskBand2.GetBandInfo

    Sub CanRenderComposited(ByRef pfCanRenderComposited As Boolean) Implements IDeskBand2.CanRenderComposited

    Sub GetCompositionState(ByRef pfCompositionEnabled As Boolean) Implements IDeskBand2.GetCompositionState

    Public Overridable Sub GetWindow(ByRef phwnd As System.IntPtr) Implements IDeskBand.GetWindow, IDockingWindow.GetWindow, IOleWindow.GetWindow

    Public Overridable Sub GetSite(ByRef riid As Guid, ByRef ppvSite As [Object]) Implements IObjectWithSite.GetSite

    Public Overridable Sub UIActivateIO(fActivate As Int32, ByRef Msg As MSG) Implements IInputObject.UIActivateIO

    Public Overridable Function TranslateAcceleratorIO(ByRef msg As MSG) As Int32 Implements IInputObject.TranslateAcceleratorIO

    Sub GetSite(ByRef riid As Guid, <MarshalAs(UnmanagedType.IUnknown)> ByRef ppvSite As [Object])

    Function ShowDeskBand(<[In](), MarshalAs(UnmanagedType.Struct)> ByRef clsid As Guid) As Integer

    Function HideDeskBand(<[In](), MarshalAs(UnmanagedType.Struct)> ByRef clsid As Guid) As Integer

    Function IsDeskBandShown(<[In](), MarshalAs(UnmanagedType.Struct)> ByRef clsid As Guid) As Integer

    Sub GetWindow(ByRef phwnd As System.IntPtr)

    Sub GetWindow(ByRef phwnd As System.IntPtr)

    Sub GetBandInfo(dwBandID As UInt32, dwViewMode As UInt32, ByRef pdbi As DESKBANDINFO)

    Sub CanRenderComposited(ByRef pfCanRenderComposited As Boolean)

    Sub GetCompositionState(ByRef pfCompositionEnabled As Boolean)

    Sub GetWindow(ByRef phwnd As System.IntPtr)

    Sub GetBandInfo(dwBandID As UInt32, dwViewMode As UInt32, ByRef pdbi As DESKBANDINFO)

    Sub GetClassID(ByRef pClassID As Guid)

    Sub GetClassID(ByRef pClassID As Guid)

    Sub GetSizeMax(<Out> ByRef pcbSize As UInt64)

    Sub QueryService(ByRef guid As Guid, ByRef riid As Guid, <MarshalAs(UnmanagedType.[Interface])> ByRef Obj As [Object])

    Sub UIActivateIO(fActivate As Int32, ByRef msg As MSG)

    Function TranslateAcceleratorIO(ByRef msg As MSG) As Int32

    Sub GetBandInfo(dwBandID As UInt32, dwViewMode As UInt32, ByRef pdbi As DESKBANDINFO)

    Sub CanRenderComposited(ByRef pfCanRenderComposited As Boolean)

    Sub GetCompositionState(ByRef pfCompositionEnabled As Boolean)

    ' Function ShowDeskBand(<[In](), MarshalAs(UnmanagedType.Struct)> ByRef clsid As Guid) As Integer Implements IDeskBand2.ShowDeskBand

    ' Function HideDeskBand(<[In](), MarshalAs(UnmanagedType.Struct)> ByRef clsid As Guid) As Integer Implements IDeskBand.HideDeskBand

    ' Function IsDeskBandShown(<[In](), MarshalAs(UnmanagedType.Struct)> ByRef clsid As Guid) As Integer Implements IDeskBand2.IsDeskBandShown

    Public Overridable Sub GetBandInfo(dwBandID As UInt32, dwViewMode As UInt32, ByRef dbi As DESKBANDINFO) Implements IDeskBand.GetBandInfo, IDeskBand2.GetBandInfo

    Sub CanRenderComposited(ByRef pfCanRenderComposited As Boolean) Implements IDeskBand2.CanRenderComposited

    Sub GetCompositionState(ByRef pfCompositionEnabled As Boolean) Implements IDeskBand2.GetCompositionState

    Public Overridable Sub GetWindow(ByRef phwnd As System.IntPtr) Implements IDeskBand.GetWindow, IDockingWindow.GetWindow, IOleWindow.GetWindow

    Public Overridable Sub GetSite(ByRef riid As Guid, ByRef ppvSite As [Object]) Implements IObjectWithSite.GetSite

    Public Overridable Sub UIActivateIO(fActivate As Int32, ByRef Msg As MSG) Implements IInputObject.UIActivateIO

    Public Overridable Function TranslateAcceleratorIO(ByRef msg As MSG) As Int32 Implements IInputObject.TranslateAcceleratorIO

    Sub GetSite(ByRef riid As Guid, <MarshalAs(UnmanagedType.IUnknown)> ByRef ppvSite As [Object])

    Function ShowDeskBand(<[In](), MarshalAs(UnmanagedType.Struct)> ByRef clsid As Guid) As Integer

    Function HideDeskBand(<[In](), MarshalAs(UnmanagedType.Struct)> ByRef clsid As Guid) As Integer

    Function IsDeskBandShown(<[In](), MarshalAs(UnmanagedType.Struct)> ByRef clsid As Guid) As Integer

    Sub GetWindow(ByRef phwnd As System.IntPtr)

    Sub GetWindow(ByRef phwnd As System.IntPtr)

    Sub GetBandInfo(dwBandID As UInt32, dwViewMode As UInt32, ByRef pdbi As DESKBANDINFO)

    Sub CanRenderComposited(ByRef pfCanRenderComposited As Boolean)

    Sub GetCompositionState(ByRef pfCompositionEnabled As Boolean)

    Sub GetWindow(ByRef phwnd As System.IntPtr)

    Sub GetBandInfo(dwBandID As UInt32, dwViewMode As UInt32, ByRef pdbi As DESKBANDINFO)

    Sub GetClassID(ByRef pClassID As Guid)

    Sub GetClassID(ByRef pClassID As Guid)

    Sub GetSizeMax(<Out> ByRef pcbSize As UInt64)

    Sub QueryService(ByRef guid As Guid, ByRef riid As Guid, <MarshalAs(UnmanagedType.[Interface])> ByRef Obj As [Object])

    Sub UIActivateIO(fActivate As Int32, ByRef msg As MSG)

    Function TranslateAcceleratorIO(ByRef msg As MSG) As Int32

    Function ShowMessage(ByVal hwnd As IntPtr, <MarshalAs(UnmanagedType.LPWStr)> ByVal lpstrText As String, <MarshalAs(UnmanagedType.LPWStr)> ByVal lpstrCaption As String, ByVal dwType As Integer, <MarshalAs(UnmanagedType.LPWStr)> ByVal lpstrHelpFile As String, ByVal dwHelpContext As Integer, ByRef lpResult As Integer) As Integer

   Sub GetOverrideKeyPath(<MarshalAs(UnmanagedType.BStr)> ByRef pchKey As String, dw As UInt32)

   Sub GetOverrideKeyPath(<MarshalAs(UnmanagedType.BStr)> ByRef pchKey As String, dw As UInt32)

        Function [Next](celt As Integer, <Out, MarshalAs(UnmanagedType.LPArray, SizeParamIndex := 0)> rgelt As Guid(), ByRef pceltFetched As Integer) As Integer

        Sub Clone(ByRef ppenum As IEnumGUID)

     ByRef rgelt As IntPtr, _

     ByRef pceltFetched As IntPtr) As Integer

     Function Clone(ByRef ppenum As IEnumIDList) As Integer

          ByRef piIndex As Integer, _

          ByRef pwFlags As Integer) As Integer

        ByRef pdwPriority As Integer, _

        ByRef prgSize As Win32.SIZE, _

        ByRef pdwFlags As Integer) As Integer

    Function Extract(<Out()> ByRef phBmpImage As IntPtr) As Integer

        ByRef pcwcBuffer As Integer, _

              ByRef PropVal As IntPtr _

    '    ByRef ppPropValue As IntPtr

               ByRef origPos As FILTERREGION, _

               ByRef riid As Guid, _

               ByRef ppunk As object _

    Sub GetBindInfo(<Out()> ByRef grfBINDF As UInt32, <[In](), Out()> ByRef pbindinfo As BINDINFO)

    Sub GetBindString(ByVal ulStringType As UInt32, <MarshalAs(UnmanagedType.LPWStr)> ByRef ppwzStr As String, ByVal cEl As UInt32, ByRef pcElFetched As UInt32)

    Sub Switch(ByRef pProtocolData As _tagPROTOCOLDATA)

    Sub Switch(ByRef pProtocolData As _tagPROTOCOLDATA)

       ByRef pdwZone As UInt32, ByVal dwFlags As UInt32) As <MarshalAs(UnmanagedType.I4)> Integer

        ByRef pcbSecurityId As UInt32, ByVal dwReserved As UInt32) As <MarshalAs(UnmanagedType.I4)> Integer

        ByRef guidKey As Guid, ByRef ppPolicy As Byte, ByRef pcbPolicy As UInt32,

        ByRef pContext As Byte, ByVal cbContext As UInt32, ByVal dwReserved As UInt32) As <MarshalAs(UnmanagedType.I4)> Integer

                  ByRef pZoneAttributes As ZoneAttributes) As Integer

                  ByRef pZoneAttributes As ZoneAttributes) As Integer

                <[In]()> ByRef guidKey As Guid,

                ByRef ppPolicy As IntPtr,

                ByRef pcbPolicy As UInteger,

                <[In]()> ByRef guidKey As Guid,

    Function CreateZoneEnumerator(ByRef pdwEnum As UInteger,

                 ByRef pdwCount As UInteger,

              ByRef pdwZone As UInteger) As Integer

    Sub ReadAt(ByVal ulOffset As Long, ByVal pv As IntPtr, ByVal cv As Integer, <Out()> ByRef pcbRead As Integer)

    Sub WriteAt(ByVal ulOffset As Long, ByVal pv As IntPtr, ByVal cb As Integer, <Out()> ByRef pcbWritten As Integer)

    Sub Stat(ByRef pstatstg As STATSTG, ByVal grfStatFlag As Integer)

    Sub GetSite(ByRef riid As Guid, <MarshalAs(UnmanagedType.Interface)> ByRef ppvSite As Object)

    Sub GetMoniker(ByVal dwAssign As Integer, ByVal dwWhichMoniker As Integer, ByRef ppmk As Object)

    Sub GetContainer(ByRef ppContainer As Object)

   Sub ActivateMe(ByRef pViewToActivate As Object)

      Sub GetWindow(<System.Runtime.InteropServices.Out()> ByRef phwnd As IntPtr)

    Sub GetCount(ByRef cProps As UInt32)

    Sub GetAt(ByVal iProp As UInt32, ByRef pkey As NativeMethods.PROPERTYKEY)

    Sub GetValue(ByRef key As NativeMethods.PROPERTYKEY, ByRef pv As Object)

    Sub SetValue(ByRef key As NativeMethods.PROPERTYKEY, ByRef pv As Object)

    Sub QueryService(ByRef guidService As Guid, ByRef riid As Guid,

    <MarshalAs(UnmanagedType.Interface)> ByRef ppvObject As Object)

        Sub GetImage(ByVal size As SIZE, ByVal flags As SIIGBF, ByRef phbm As IntPtr)

    Function BindToHandler(<[In](), MarshalAs(UnmanagedType.[Interface])> pbc As IntPtr, <[In]()> rbhid As Guid, <[In]()> riid As Guid, ByRef ppvOut As IntPtr) As Integer

    Function GetPropertyStore(<[In]()> Flags As Integer, <[In]()> riid As Guid, ByRef ppv As IntPtr) As Integer

    Function GetPropertyDescriptionList(<[In]()> keyType As PROPERTYKEY, <[In]()> riid As Guid, ByRef ppv As IntPtr) As Integer

    Function GetAttributes(<[In]()> dwAttribFlags As SIATTRIBFLAGS, <[In]()> sfgaoMask As SFGAO, ByRef psfgaoAttribs As SFGAO) As Integer

    Function GetCount(ByRef pdwNumItems As UInteger) As Integer

    Function GetItemAt(<[In]()> dwIndex As UInteger, <MarshalAs(UnmanagedType.[Interface])> ByRef ppsi As IShellItem) As Integer

    Function EnumItems(<MarshalAs(UnmanagedType.[Interface])> ByRef ppenumShellItems As IEnumShellItems) As Integer

        Sub GetImage(ByVal size As SIZE, ByVal flags As SIIGBF, ByRef phbm As IntPtr)

    Sub GetPath(<Out(), MarshalAs(UnmanagedType.LPStr)> ByVal pszFile As StringBuilder, ByVal cchMaxPath As Integer, ByRef pfd As WIN32_FIND_DATAA, ByVal fFlags As UInteger)

    Sub GetIDList(ByRef ppidl As IntPtr)

    Sub GetHotkey(ByRef pwHotkey As Short)

    Sub GetShowCmd(ByRef piShowCmd As UInteger)

    Sub GetIconLocation(<Out(), MarshalAs(UnmanagedType.LPStr)> ByVal pszIconPath As StringBuilder, ByVal cchIconPath As Integer, ByRef piIcon As Integer)

            ByRef pfd As WIN32_FIND_DATA, _

    <PreserveSig()> Function GetIDList(ByRef ppidl As IntPtr) As HRESULT

    <PreserveSig()> Function GetHotkey(ByRef pwHotkey As Short) As HRESULT

    <PreserveSig()> Function GetShowCmd(ByRef piShowCmd As Integer) As HRESULT

            ByRef piIcon As Integer) As HRESULT

                     ByRef ppstm As IStream)

                   ByRef ppstm As IStream)

                      ByRef ppstg As IStorage)

                    ByRef ppstg As IStorage)

                     ByRef ppenum As IEnumSTATSTG)

    Sub Stat(ByRef pstatstg As STATSTG,

        Sub GetThumbnail(cx As Integer, ByRef phbmp As IntPtr, ByRef pdwAlpha As WTS_ALPHATYPE)

    <Out(), MarshalAs(UnmanagedType.Interface)> ByRef rgElt As ITravelLogEntry, _

    <Out(), MarshalAs(UnmanagedType.U4)> ByRef pcEltFetched As Integer) As Integer

    Function Clone(<Out(), MarshalAs(UnmanagedType.Interface)> ByRef ppEnum As IEnumTravelLogEntry) As Integer

    <Out(), MarshalAs(UnmanagedType.Interface)> ByRef pptle As ITravelLogEntry) As Integer

    <Out(), MarshalAs(UnmanagedType.Interface)> ByRef ppenum As IEnumTravelLogEntry) As Integer

    <Out(), MarshalAs(UnmanagedType.Interface)> ByRef ppenum As IEnumTravelLogEntry) As Integer

    <Out(), MarshalAs(UnmanagedType.U4)> ByRef pcEntries As Integer) As Integer

    <Out(), MarshalAs(UnmanagedType.Interface)> ByRef ptle As ITravelLogEntry) As Integer

     Function QueryInterface(ByRef riid As Guid) As IntPtr

    Sub Draw(<MarshalAs(UnmanagedType.U4)> ByVal dwDrawAspect As UInt32, ByVal lindex As Integer, ByVal pvAspect As IntPtr, <[In]()> ByVal ptd As IntPtr, ByVal hdcTargetDev As IntPtr, ByVal hdcDraw As IntPtr, <MarshalAs(UnmanagedType.Struct)> ByRef lprcBounds As _RECTL, <[In]()> ByVal lprcWBounds As IntPtr, ByVal pfnContinue As IntPtr, <MarshalAs(UnmanagedType.U4)> ByVal dwContinue As UInt32)

    Sub GetColorSet(<[In]()> ByVal dwDrawAspect As UInteger, <[In]()> ByVal lindex As Integer, <[In]()> ByVal pvAspect As UInteger, <[In]()> ByRef ptd As tagDVTARGETDEVICE, <[In]()> ByVal hicTargetDev As UInteger, <Out()> ByVal ppColorSet As IntPtr)

    Sub Freeze(<[In]()> ByVal dwDrawAspect As UInteger, <[In]()> ByVal lindex As Integer, <[In]()> ByVal pvAspect As UInteger, ByRef pdwFreeze As UInteger)

    Sub GetAdvise(ByRef pAspects As UInteger, ByRef pAdvf As UInteger, <MarshalAs(UnmanagedType.[Interface])> ByRef ppAdvSink As IAdviseSink)

    Sub ClientToWindow(<[In](), Out()> ByRef pcx As Integer, <[In](), Out()> ByRef pcy As Integer)

    Sub ExecWB(ByVal cmdID As OLECMDID, ByVal cmdexecopt As OLECMDEXECOPT, <[In]()> ByRef pvaIn As Object, <[In](), Out()> ByRef pvaOut As Object)

    Sub Navigate(<MarshalAs(UnmanagedType.BStr)> ByVal URL As String, <[In]()> ByRef Flags As Object, <[In]()> ByRef TargetFrameName As Object, <[In]()> ByRef PostData As Object, <[In]()> ByRef Headers As Object)

    Sub Navigate2(<[In]()> ByRef URL As Object, <[In]()> ByRef Flags As Object, <[In]()> ByRef TargetFrameName As Object, <[In]()> ByRef PostData As Object, <[In]()> ByRef Headers As Object)

    Sub Refresh2(<[In]()> ByRef Level As Object)

    Sub ShowBrowserBar(<[In]()> ByRef pvaClsid As Object, <[In]()> ByRef pvarShow As Object, <[In]()> ByRef pvarSize As Object)

    Sub ClientToWindow(<[In](), Out()> ByRef pcx As Integer, <[In](), Out()> ByRef pcy As Integer)

    Sub ExecWB(ByVal cmdID As OLECMDID, ByVal cmdexecopt As OLECMDEXECOPT, <[In]()> ByRef pvaIn As Object, <[In](), Out()> ByRef pvaOut As Object)

    Sub Navigate(<MarshalAs(UnmanagedType.BStr)> ByVal URL As String, <[In]()> ByRef Flags As Object, <[In]()> ByRef TargetFrameName As Object, <[In]()> ByRef PostData As Object, <[In]()> ByRef Headers As Object)

    Sub Navigate2(<[In]()> ByRef URL As Object, <[In]()> ByRef Flags As Object, <[In]()> ByRef TargetFrameName As Object, <[In]()> ByRef PostData As Object, <[In]()> ByRef Headers As Object)

    Sub Refresh2(<[In]()> ByRef Level As Object)

    Sub ShowBrowserBar(<[In]()> ByRef pvaClsid As Object, <[In]()> ByRef pvarShow As Object, <[In]()> ByRef pvarSize As Object)

                      ByRef session As Integer) As Integer

   ByVal flFlags As UInteger, ByVal ulReserved As UInteger, ByRef lppMessage As IntPtr) As UInteger

   Private Declare Function NetApiBufferAllocate Lib "NETAPI32.DLL" (ByVal ByteCount As Integer, ByRef Buffer As Integer) As Integer

Declare Unicode Function DhcpEnumSubnetClients Lib "Dhcpsapi" (ByVal ServerIpAddress As String, ByVal SubnetAddress As Integer, ByRef ResumeHandle As Integer, ByVal PreferredMaximum As Integer, ByRef ClientInfo As IntPtr, ByRef ClientsRead As Integer, ByRef ClientsTotal As Integer) As Integer

Declare Unicode Function DhcpEnumSubnetClients Lib "dhcpsapi" (ByVal ServerIpAddress As String, ByVal SubnetAddress As Int32, ByRef ResumeHandle As IntPtr, ByVal PreferredMaximum As Integer, ByRef ClientInfo As IntPtr, ByRef ClientsRead As Integer, ByRef ClientsTotal As Integer) As Integer

Declare Unicode Function DhcpEnumSubnets Lib "Dhcpsapi" (ByVal ServerIpAddress As String, ByRef ResumeHandle As Integer, ByVal PreferredMaximum As Integer, ByRef EnumInfo As IntPtr, ByRef ElementsRead As Integer, ByRef ElementsTotal As Integer) As Integer