[MarshalAs(UnmanagedType.ByValArray, SizeConst = 32)]

Private Shared Function ClosePrinter(ByVal hPrinter As Int32) As Boolean

    Private Shared Function DocumentProperties(ByVal hwnd As IntPtr, ByVal hPrinter As IntPtr, <MarshalAs(UnmanagedType.LPWStr)> ByVal pDeviceName As String, ByVal pDevModeOutput As IntPtr, ByVal pDevModeInput As IntPtr, ByVal fMode As Integer) As Integer

    (ByVal hPrinter As IntPtr, _

    ByVal FirstJob As UInt32, _

    ByVal NoJobs As UInt32, _

    ByVal Level As UInt32, _

    ByVal pJob As IntPtr, _

    ByVal cdBuf As UInt32, _

    Public Function DatatoDeserial(ByVal datas() As Byte, ByVal type_to_change As Type, _

    ByVal NumJub As Long) As Object

Declare Function EnumPrintProcessorDatatypes Lib "winspool.drv" Alias "EnumPrintProcessorDatatypesA" (ByVal pName As String, ByVal pPrintProcessorName As String, ByVal Level As Integer, ByRef pDatatypes As Byte, ByVal cdBuf As Integer, ByRef pcbNeeded As Integer, ByRef pcRetruned As Integer) As Integer

(ByVal pszBuffer As System.Text.StringBuilder, ByRef pcchBuffer As Int32) As Boolean

   Private Shared Function OpenPrinter(ByVal pPrinterName As String, _

        ByVal pDefault As IntPtr) As Boolean

   Private Shared Function OpenPrinter(ByVal pPrinterName As String, _

   ByRef hPrinter As IntPtr, ByVal pDefault As PRINTER_DEFAULTS) As Boolean

   Private Shared Function OpenPrinter(ByVal pPrinterName As String, _

Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Boolean

    Public Shared Function WritePrinter(ByVal hPrinter As IntPtr, ByVal pBytes As IntPtr, ByVal dwCount As Int32, ByRef dwWritten As Int32) As Boolean

<DllImport("winspool.drv")> Private Function WritePrinter(ByVal hPrinter As IntPtr, ByVal pBytes As IntPtr, ByVal dwCount As UInt32, ByVal dwWritten As UInt32) As Boolean

      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 CommandStateChange(ByVal Command As Integer, <MarshalAs(UnmanagedType.VariantBool)> ByVal Enable As Boolean)

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

      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 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 OnFullScreen(<MarshalAs(UnmanagedType.VariantBool)> ByVal FullScreen As Boolean)

      Sub OnMenuBar(<MarshalAs(UnmanagedType.VariantBool)> ByVal MenuBar As Boolean)

      Sub OnStatusBar(<MarshalAs(UnmanagedType.VariantBool)> ByVal StatusBar As Boolean)

      Sub OnTheaterMode(<MarshalAs(UnmanagedType.VariantBool)> ByVal TheaterMode As Boolean)

      Sub OnToolBar(<MarshalAs(UnmanagedType.VariantBool)> ByVal ToolBar As Boolean)

      Sub OnVisible(<MarshalAs(UnmanagedType.VariantBool)> ByVal Visible As Boolean)

      Sub PrintTemplateInstantiation(<MarshalAs(UnmanagedType.IDispatch)> ByVal pDisp As Object)

      Sub PrintTemplateTeardown(<MarshalAs(UnmanagedType.IDispatch)> ByVal pDisp As Object)

      Sub PrivacyImpactedStateChange(<MarshalAs(UnmanagedType.VariantBool)> ByVal bImpacted As Boolean)

      Sub ProgressChange(ByVal Progress As Integer, ByVal ProgressMax As Integer)

      Sub PropertyChange(<MarshalAs(UnmanagedType.BStr)> ByVal szProperty As String)

      Sub SetSecureLockIcon(ByVal SecureLockIcon As Integer)

      Sub StatusTextChange(<MarshalAs(UnmanagedType.BStr)> ByVal [Text] As String)

      Sub TitleChange(<MarshalAs(UnmanagedType.BStr)> ByVal [Text] 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)

      Sub WindowSetHeight(ByVal Height As Integer)

      Sub WindowSetLeft(ByVal Left As Integer)

      Sub WindowSetResizable(<MarshalAs(UnmanagedType.VariantBool)> ByVal Resizable As Boolean)

      Sub WindowSetTop(ByVal Top As Integer)

      Sub WindowSetWidth(ByVal Width As Integer)

         <PreserveSig()> Function SetAccessibleName(<MarshalAs(UnmanagedType.LPWStr)> ByVal pszName As String) As Integer

    Function ApplyChanges(ByVal dwFlags As AD_Apply) As Integer

    Function GetWallpaper(<MarshalAs(UnmanagedType.LPWStr)> ByVal pwszWallpaper As StringBuilder, ByVal cchWallpaper As Integer, ByVal dwReserved As Integer) As Integer

    Function SetWallpaper(<MarshalAs(UnmanagedType.LPWStr)> ByVal pwszWallpaper As String, ByVal dwReserved As Integer) As Integer

    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 GetPattern(<MarshalAs(UnmanagedType.LPWStr)> ByVal pwszPattern As StringBuilder, ByVal cchPattern As Integer, ByVal dwReserved As Integer) As Integer

    Function SetPattern(<MarshalAs(UnmanagedType.LPWStr)> ByVal pwszPattern As String, 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

    Sub SetPriority(<[In]()> ByVal nPriority As Integer)

    Sub LockServer(ByVal fLock As Int32)

      <[In](), MarshalAs(UnmanagedType.[Interface])> ByVal unused As Object,_

      <[In](), MarshalAs(UnmanagedType.LPStruct)> ByVal iid As Guid) As Object

    Private Sub LockServer(ByVal fLock As Int32)

    Private Function RequestLicKey(<[In](), MarshalAs(UnmanagedType.U4)> ByVal reserved As Integer) As String

      <[In](), MarshalAs(UnmanagedType.[Interface])> ByVal pUnkOuter As Object,_

      <[In](), MarshalAs(UnmanagedType.[Interface])> ByVal pUnkReserved As Object,_

      <[In](), MarshalAs(UnmanagedType.LPStruct)> ByVal iid As Guid,_

      <[In](), MarshalAs(UnmanagedType.BStr)> ByVal bstrKey As String) As Object

    Sub SetUIHandler(ByVal pUIHandler As IDocHostUIHandler)

    <MarshalAs(UnmanagedType.ByValTStr, SizeConst := 255)> _

    <MarshalAs(UnmanagedType.ByValTStr, SizeConst := 255)> _

    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

    Function ShowHelp(ByVal hwnd As IntPtr, <MarshalAs(UnmanagedType.LPWStr)> ByVal pszHelpFile As String, ByVal uCommand As Integer, ByVal dwData As Integer, ByVal ptMouse As tagPoint, <MarshalAs(UnmanagedType.IDispatch)> ByVal pDispatchObjectHit As Object) As Integer

     ByVal celt As Integer, _

     Function Skip(ByVal celt As Integer) As Integer

     Function GetIconLocation(ByVal uFlags As Integer, _

          ByVal szIconFile As IntPtr, _

          ByVal cchMax As Integer, _

    Function Extract(ByVal pszFile As IntPtr, _

         ByVal nIconIndex As Integer, _

         ByVal phiconLarge As IntPtr, _

         ByVal phiconSmall As IntPtr, _

         ByVal nIconSize As Integer) As Integer

        <Out(), MarshalAs(UnmanagedType.LPWStr)> ByVal pszPathBuffer As System.Text.StringBuilder, _

        ByVal cch As Integer, _

        ByVal dwRecClrDepth As Integer, _

        ByVal grfFlags As IFILTER_INIT, _

        ByVal cAttributes As Integer , _

        ByVal aAttributes As IntPtr, _

        ByVal pdwFlags As IFILTER_FLAGS _

       ByVal pStat As STAT_CHUNK _

           awcBuffer As StringBuilderByVal _

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

    Sub ReportProgress(ByVal ulStatusCode As UInt32, <MarshalAs(UnmanagedType.LPWStr)> ByVal szStatusText As String)

    Sub ReportData(ByVal grfBSCF As BSCF, ByVal ulProgress As UInt32, ByVal ulProgressMax As UInt32)

    Sub ReportResult(ByVal hrResult As Integer, ByVal dwError As UInt32, <MarshalAs(UnmanagedType.LPWStr)> ByVal szResult As String)

    Sub ReportProgress(ByVal ulStatusCode As UInt32, <MarshalAs(UnmanagedType.LPWStr)> ByVal szStatusText As String)

    Sub ReportData(ByVal grfBSCF As BSCF, ByVal ulProgress As UInt32, ByVal ulProgressMax As UInt32)

    Sub ReportResult(ByVal hrResult As Integer, ByVal dwError As UInt32, <MarshalAs(UnmanagedType.LPWStr)> ByVal szResult As String)

    Function SetSecuritySite(<[In]()> ByVal pSite As IntPtr) As <MarshalAs(UnmanagedType.I4)> Integer

    Function GetSecuritySite(<[Out]()> ByVal pSite As IntPtr) As <MarshalAs(UnmanagedType.I4)> Integer

    Function MapUrlToZone(<[In]()> <MarshalAs(UnmanagedType.LPWStr)> ByVal pwszUrl As String,

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

    Function GetSecurityId(<MarshalAs(UnmanagedType.LPWStr)> ByVal pwszUrl As String,

        <MarshalAs(UnmanagedType.LPArray)> ByVal pbSecurityId As Byte(),

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

    Function ProcessUrlAction(<[In]()> <MarshalAs(UnmanagedType.LPWStr)> ByVal pwszUrl As String,

           ByVal dwAction As UInt32, <[Out]()> ByVal pPolicy As Byte, ByVal cbPolicy As UInt32,

           ByVal pContext As Byte, ByVal cbContext As UInt32, ByVal dwFlags As UInt32,

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

    Function QueryCustomPolicy(<[In]()> <MarshalAs(UnmanagedType.LPWStr)> ByVal pwszUrl As String,

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

    Function SetZoneMapping(ByVal dwZone As UInt32,

         <[In]()> <MarshalAs(UnmanagedType.LPWStr)> ByVal lpszPattern As String,

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

    Function GetZoneMappings(ByVal dwZone As UInt32, <[Out]()> ByVal ppenumString As IEnumString,

        ByVal dwFlags As UInt32) As <MarshalAs(UnmanagedType.I4)> Integer 'As UCOMIEnumString

    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 260)]

    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 200)]

    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 260)]

    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> Public DizplayName As String

    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=200)> Public Description As String

    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> Public IconPath As String

    Function GetZoneAttributes(ByVal dwZone As UInteger,

    Function SetZoneAttributes(ByVal dwZone As UInteger,

    Function GetZoneCustomPolicy(ByVal dwZone As UInteger,

                ByVal urlZoneReg As UrlZoneReg) As Integer

    Function SetZoneCustomPolicy(ByVal dwZone As UInteger,

                ByVal pPolicy As IntPtr,

                ByVal pcbPolicy As UInteger,

                ByVal urlZoneReg As UrlZoneReg) As Integer

    Function GetZoneActionPolicy(ByVal dwZone As UInteger,

                ByVal dwAction As UInteger,

                ByVal pPolicy As IntPtr,

                ByVal cbPolicy As UInteger,

                ByVal urlZoneReg As UrlZoneReg) As Integer

    Function SetZoneActionPolicy(ByVal dwZone As UInteger,

                ByVal dwAction As UInteger,

                ByVal pPolicy As IntPtr,

                ByVal cbPolicy As UInteger,

                ByVal urlZoneReg As UrlZoneReg) As Integer

    Function PromptAction(ByVal dwAction As UInteger,

             ByVal hwndParent As IntPtr,

             <MarshalAs(UnmanagedType.LPWStr)> ByVal pwszUrl As String,

             <MarshalAs(UnmanagedType.LPWStr)> ByVal pwszText As String,

             ByVal dwPromptFlags As UInteger) As Integer

    Function LogAction(ByVal dwAction As UInteger,

              <MarshalAs(UnmanagedType.LPWStr)> ByVal pwszUrl As String,

              <MarshalAs(UnmanagedType.LPWStr)> ByVal pwszText As String,

              ByVal dwLogFlags As UInteger) As Integer

                 ByVal dwFlags As UInteger) As Integer

    Function GetZoneAt(ByVal dwEnum As UInteger,

              ByVal dwIndex As UInteger,

    Function DestroyZoneEnumerator(ByVal dwEnum As UInteger) As Integer

    Function CopyTemplatePoliciesToZone(ByVal dwTemplate As UInteger,

                       ByVal dwZone As UInteger,

                       ByVal dwReserved As UInteger) As Integer

    Public Function GetZoneAttributes(ByVal zone As UrlZone) As ZoneAttributes

    Public Sub SetZoneAttributes(ByVal zone As UrlZone, ByVal attributes As ZoneAttributes)

    Public Function GetZoneActionPolicy(ByVal zone As UrlZone, ByVal action As UrlAction, ByVal zoneReg As UrlZoneReg) As Byte()

    Public Function CopyTemplatePoliciesToZone(ByVal template As UrlTemplate, ByVal zone As UrlZone) 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 SetSize(ByVal cb As Long)

    Sub LockRegion(ByVal libOffset As Long, ByVal cb As Long, ByVal dwLockType As Integer)

    Sub UnlockRegion(ByVal libOffset As Long, ByVal cb As Long, ByVal dwLockType As Integer)

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

    <Runtime.InteropServices.PreserveSig()> Function Alloc(ByVal cb As UInt32) As IntPtr

    <Runtime.InteropServices.PreserveSig()> Function Realloc(ByVal pv As IntPtr, ByVal cb As UInt32) As IntPtr

    <Runtime.InteropServices.PreserveSig()> Sub Free(ByVal pv As IntPtr)

    <Runtime.InteropServices.PreserveSig()> Function GetSize(ByVal pv As IntPtr) As UInt32

    <Runtime.InteropServices.PreserveSig()> Function DidAlloc(ByVal pv As IntPtr) As Int16

    Sub SetSite(<MarshalAs(UnmanagedType.IUnknown)> ByVal pUnkSite As Object)

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

    Sub OnShowWindow(ByVal fShow As Boolean)

      Sub ContextSensitiveHelp(<[In](), MarshalAs(UnmanagedType.Bool)> ByVal fEnterMode As Boolean)

    <PreserveSig()> Function Load(<MarshalAs(UnmanagedType.LPWStr)> ByVal pszFileName As String, _

            ByVal dwMode As STGM) As HRESULT

    <PreserveSig()> Function Save(<MarshalAs(UnmanagedType.LPWStr)> ByVal pszFileName As String, _

            <MarshalAs(UnmanagedType.Bool)> ByVal fRemember As Boolean) As HRESULT

    <PreserveSig()> Function SaveCompleted(<MarshalAs(UnmanagedType.LPWStr)> ByVal pszFileName As String) As HRESULT

    <PreserveSig()> Function GetCurFile(<MarshalAs(UnmanagedType.LPWStr)> ByVal ppszFileName As Text.StringBuilder) As HRESULT

        Function OnChanged(ByVal dispId As Int32) As Int32

        Function OnRequestEdit(ByVal dispId As Int32) As Int32

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

    Function Initialize(ByVal pidlFolder As IntPtr, ByVal lpdobj As IntPtr, ByVal hKeyProgID As IntPtr) As Integer

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

        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 SetIDList(ByVal pidl As IntPtr)

    Sub GetDescription(<Out(), MarshalAs(UnmanagedType.LPStr)> ByVal pszFile As StringBuilder, ByVal cchMaxName As Integer)

    Sub SetDescription(<MarshalAs(UnmanagedType.LPStr)> ByVal pszName As String)

    Sub GetWorkingDirectory(<Out(), MarshalAs(UnmanagedType.LPStr)> ByVal pszDir As StringBuilder, ByVal cchMaxPath As Integer)

    Sub SetWorkingDirectory(<MarshalAs(UnmanagedType.LPStr)> ByVal pszDir As String)

    Sub GetArguments(<Out(), MarshalAs(UnmanagedType.LPStr)> ByVal pszArgs As StringBuilder, ByVal cchMaxPath As Integer)

    Sub SetArguments(<MarshalAs(UnmanagedType.LPStr)> ByVal pszArgs As String)

    Sub SetHotkey(ByVal pwHotkey As Short)

    Sub SetShowCmd(ByVal piShowCmd As UInteger)

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

    Sub SetIconLocation(<MarshalAs(UnmanagedType.LPStr)> ByVal pszIconPath As String, ByVal iIcon As Integer)

    Sub SetRelativePath(<MarshalAs(UnmanagedType.LPStr)> ByVal pszPathRel As String, ByVal dwReserved As UInteger)

    Sub Resolve(ByVal hWnd As IntPtr, ByVal fFlags As UInteger)

    Sub SetPath(<MarshalAs(UnmanagedType.LPStr)> ByVal pszFile As String)

            <MarshalAs(UnmanagedType.LPWStr)> ByVal pszFile As Text.StringBuilder, _

            ByVal cch As Integer, _

            ByVal fFlags As Integer) As HRESULT

    <PreserveSig()> Function SetIDList(ByVal pidl As IntPtr) As HRESULT

            <MarshalAs(UnmanagedType.LPWStr)> ByVal pszName As Text.StringBuilder, _

            ByVal cch As Integer) As HRESULT

            <MarshalAs(UnmanagedType.LPWStr)> ByVal pszName As String) As HRESULT

            <MarshalAs(UnmanagedType.LPWStr)> ByVal pszDir As Text.StringBuilder, _

            ByVal cch As Integer) As HRESULT

            <MarshalAs(UnmanagedType.LPWStr)> ByVal pszDir As String) As HRESULT

            <MarshalAs(UnmanagedType.LPWStr)> ByVal pszArgs As Text.StringBuilder, _

            ByVal cch As Integer) As HRESULT

            <MarshalAs(UnmanagedType.LPWStr)> ByVal pszArgs As String) As HRESULT

    <PreserveSig()> Function SetHotkey(ByVal wHotkey As Short) As HRESULT

    <PreserveSig()> Function SetShowCmd(ByVal iShowCmd As Integer) As HRESULT

            <MarshalAs(UnmanagedType.LPWStr)> ByVal pszIconPath As Text.StringBuilder, _

            ByVal cch As Integer, _

            <MarshalAs(UnmanagedType.LPWStr)> ByVal pszIconPath As String, _

            ByVal iIcon As Integer) As HRESULT

            <MarshalAs(UnmanagedType.LPWStr)> ByVal pszPathRel As String, _

            ByVal dwReserved As Integer) As HRESULT

    <PreserveSig()> Function Resolve(ByVal hwnd As IntPtr, ByVal fFlags As Integer) As HRESULT

            <MarshalAs(UnmanagedType.LPWStr)> ByVal pszFile As String) As HRESULT

    Sub CreateStream(ByVal pwcsName As String,

                     ByVal grfMode As UInteger,

                     ByVal reserved1 As UInteger,

                     ByVal reserved2 As UInteger,

    Sub OpenStream(ByVal pwcsName As String,

                   ByVal reserved1 As IntPtr,

                   ByVal grfMode As UInteger,

                   ByVal reserved2 As UInteger,

    Sub CreateStorage(ByVal pwcsName As String,

                      ByVal grfMode As UInteger,

                      ByVal reserved1 As UInteger,

                      ByVal reserved2 As UInteger,

    Sub OpenStorage(ByVal pwcsName As String,

                    ByVal pstgPriority As IStorage,

                    ByVal grfMode As UInteger,

                    ByVal snbExclude As IntPtr,

                    ByVal reserved As UInteger,

    Sub CopyTo(ByVal ciidExclude As UInteger,

               ByVal rgiidExclude() As Guid,

               ByVal snbExclude As IntPtr,

               ByVal pstgDest As IStorage)

    Sub MoveElementTo(ByVal pwcsName As String,

                      ByVal pstgDest As IStorage,

                      ByVal pwcsNewName As String,

                      ByVal grfFlags As UInteger)

    Sub Commit(ByVal grfCommitFlags As UInteger)

    Sub EnumElements(ByVal reserved1 As UInteger,

                     ByVal reserved2 As IntPtr,

                     ByVal reserved3 As UInteger,

    Sub DestroyElement(ByVal pwcsName As String)

    Sub RenameElement(ByVal pwcsOldName As String,

                      ByVal pwcsNewName As String)

    Sub SetElementTimes(ByVal pwcsName As String,

                        ByVal pctime As FILETIME,

                        ByVal patime As FILETIME,

                        ByVal pmtime As FILETIME)

    Sub SetClass(ByVal clsid As Guid)

    Sub SetStateBits(ByVal grfStateBits As UInteger,

                     ByVal grfMask As UInteger)

             ByVal grfStatFlag As UInteger)

    Function BeginTransaction(ByVal pUnknownOuter As Object, _

    ByVal isoLevel As IsolationLevel, ByVal isoFlag As IsoFlag, _

   ByVal transactionOptions As Object) As ITransaction

    Function [Next](<[In](), MarshalAs(UnmanagedType.U4)> ByVal cElt As Integer, _

    Function Skip(<[In](), MarshalAs(UnmanagedType.U4)> ByVal cElt As Integer) As Integer

    Function CreateEntry(<[In](), MarshalAs(UnmanagedType.BStr)> ByVal pszUrl As String, _

    <[In](), MarshalAs(UnmanagedType.BStr)> ByVal pszTitle As String, _

    <[In](), MarshalAs(UnmanagedType.Interface)> ByVal ptleRelativeTo As ITravelLogEntry, _

    <[In](), MarshalAs(UnmanagedType.Bool)> ByVal fPrepend As Boolean, _

    Function TravelTo(<[In]()> ByVal ptle As ITravelLogEntry) As Integer

    Function EnumEntries(<[In](), MarshalAs(UnmanagedType.U4)> ByVal ptle As TLENUMF, _

    Function FindEntries(<[In](), MarshalAs(UnmanagedType.U4)> ByVal flags As TLENUMF, _

    <[In](), MarshalAs(UnmanagedType.BStr)> ByVal pszUrl As String, _

    Function GetCount(<[In](), MarshalAs(UnmanagedType.U4)> ByVal flags As TLENUMF, _

    Function RemoveEntry(<[In](), MarshalAs(UnmanagedType.Interface)> ByVal ptle As ITravelLogEntry) As Integer

    Function GetRelativeEntry(<[In]()> ByVal iOffset As Integer, _

    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 Unfreeze(<[In]()> ByVal dwFreeze As UInteger)

    Sub SetAdvise(<[In]()> ByVal aspects As UInteger, <[In]()> ByVal advf As UInteger, <[In](), MarshalAs(UnmanagedType.[Interface])> ByVal pAdvSink As IAdviseSink)

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

    Function GetProperty(<MarshalAs(UnmanagedType.BStr)> ByVal [Property] As String) 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 PutProperty(<MarshalAs(UnmanagedType.BStr)> ByVal [Property] As String, ByVal vtValue As Object)

    Function QueryStatusWB(ByVal cmdID As OLECMDID) As OLECMDF

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

    Function GetProperty(<MarshalAs(UnmanagedType.BStr)> ByVal [Property] As String) 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 PutProperty(<MarshalAs(UnmanagedType.BStr)> ByVal [Property] As String, ByVal vtValue As Object)

    Function QueryStatusWB(ByVal cmdID As OLECMDID) As OLECMDF

    Public Shared Function CreateEvent(lpEventAttributes As IntPtr, ByVal bManualReset As Boolean, ByVal bInitialState As Boolean, ByVal lpName As String) As IntPtr

        [MarshalAs(UnmanagedType.ByValTStr, SizeConst=MAX_HOSTNAME_LEN + 4)]

        [MarshalAs(UnmanagedType.ByValTStr, SizeConst=MAX_HOSTNAME_LEN + 4)]

        [MarshalAs(UnmanagedType.ByValTStr, SizeConst=MAX_SCOPE_ID_LEN + 4)]

        [MarshalAs(UnmanagedType.ByValArray, SizeConst = 8)]

        [MarshalAs(UnmanagedType.ByValArray, SizeConst = 14)]

        [MarshalAs(UnmanagedType.ByValArray, SizeConst = MAX_ADAPTER_ADDRESS_LENGTH)]

        [MarshalAs(UnmanagedType.ByValArray, SizeConst = 16)]

        [MarshalAs(UnmanagedType.ByValArray, SizeConst = MAX_DHCPV6_DUID_LENGTH)]

     ByVal pAdapterInfo As IntPtr, _

Public Shared Function GetExtendedTcpTable(ByVal pTcpTable As IntPtr, ByRef dwOutBufLen As Integer, ByVal sort As Boolean, ByVal ipVersion As  Integer, ByVal tblClass As TCP_TABLE_CLASS, ByVal reserved As Integer) As UInteger

      [MarshalAs(UnmanagedType.ByValArray, SizeConst = 4)]

      [MarshalAs(UnmanagedType.ByValArray, SizeConst = 4)]

      [MarshalAs(UnmanagedType.ByValArray, ArraySubType = UnmanagedType.Struct, SizeConst = 1)]

      [MarshalAs(UnmanagedType.ByValArray, SizeConst = 16)]

      [MarshalAs(UnmanagedType.ByValArray, SizeConst = 4)]

      [MarshalAs(UnmanagedType.ByValArray, SizeConst = 16)]

      [MarshalAs(UnmanagedType.ByValArray, SizeConst = 4)]

     [MarshalAs(UnmanagedType.ByValArray, ArraySubType = UnmanagedType.Struct, SizeConst = 1)]

        [MarshalAs(UnmanagedType.ByValTStr, SizeConst = PInvokes.MAX_ADAPTER_NAME)]

GetIpAddrTable Lib "iphlpapi.dll" (ByRef ipTable As IntPtr, ByRef tableSize As IntPtr, ByVal ordered As Boolean) As UInt32

    <MarshalAs(UnmanagedType.ByValArray, SizeConst:=6)>

    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MAX_HOSTNAME_LEN + 4)>

    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MAX_DOMAIN_NAME_LEN + 4)>

    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MAX_SCOPE_ID_LEN + 4)>

    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = PInvokes.MAX_ADAPTER_NAME)]

        [MarshalAs(UnmanagedType.ByValArray, SizeConst=IPHelper.MAXLEN_PHYSADDR)]

      ByVal DestIP As UInt32, ByVal SrcIP As UInt32, _

      ByVal pMacAddr As Byte(), ByRef PhyAddrLen As Integer) As Integer

Public Shared Function GetMAC(ByVal IPAddress A