.

     ByVal hWndCaller As IntPtr, ByVal pszFile As String, _

.

     ByVal uCommand As Integer, ByVal dwData As IntPtr) As Integer

.

Private Declare Auto Function SQLAllocHandle Lib "odbc32.dll" (ByVal HandleType As Short, ByVal InputHandle As IntPtr, ByRef OutputHandle As IntPtr) As Short

.

    Private Shared Function SQLAllocStmt(ByVal connectionHandle As IntPtr, <Runtime.InteropServices.Out()> _

.

Shared Function SQLBindCol(ByVal StatementHandle As HandleRef, ByVal ColumnNumber As _

.

Short, ByVal TargetType As Short, ByVal TargetValue As HandleRef, ByVal BufferLength As _

.

    Private Function SQLConnect(ByVal hDBc As IntPtr, ByVal servername As String, ByVal serverlen As Short, _

.

    ByVal username As String, ByVal userlen As Short, ByVal pwd As String, ByVal pwdlen As Short) As Short

.

Declare Function SQLDataSources Lib "odbc32.dll" (ByVal EnvironmentHandle As Integer, ByVal Direction As Short, _

.

    ByVal ServerName As String, ByVal BufferLength1 As Short, ByRef NameLength1Ptr As Short, _

.

    ByVal Description As String, ByVal BufferLength2 As Short, ByRef NameLength2Ptr As Short) As Short

.

    Private Sub OnGetODBCConnectionNames(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbExpSID.DropDown, cmbImpSid.DropDown

.

    Private Shared Function SQLDriverConnect(ByVal hdbc As IntPtr, ByVal hwnd As IntPtr, ByVal szConnStrIn As String, _

.

    ByVal cbConnStrIn As Short, ByVal szConnStrOut As Text.StringBuilder, ByVal cbConnStrOutMax As Short, _

.

    <Runtime.InteropServices.Out()> ByRef pbcConnStrOut As Short, ByVal fDriverCompletion As Short) As Short

.

    Private Shared Function SQLExecDirect(ByVal statementHandle As IntPtr, ByVal statementText As String, _

.

    ByVal textLength As Short) As Short

.

    Private Function SQLFetch(ByVal statementHandle As IntPtr) As Short

.

Declare Function SQLFreeEnv Lib "odbc32.dll" (ByVal Handle As IntPtr) As Short

.

Declare Function SQLFreeHandle Lib "odbc32.dll" (ByVal HandleType As Short, ByVal InputHandle As IntPtr) As Short

.

    Private Shared Function SQLFreeStmt(ByVal statementhandle As IntPtr, ByVal [option] As UShort) As Short

.

    Private Shared Function SQLGetData(ByVal statementHandle As IntPtr, ByVal columnNumber As UShort, _

.

    ByVal targetType As Short, ByVal targetValue As IntPtr, ByVal bufferLength As Integer, _

.

Declare Function SQLGetDiagRec Lib "odbc32.dll" (ByVal handleType As Short, ByVal statementHandle As IntPtr,

.

    ByVal record As Short, ByVal sqlState As Text.StringBuilder, ByRef nativeError As Integer,

.

    ByVal errorMsg As Text.StringBuilder, ByVal errorMsgMax As Short, ByRef errorMsgLength As Short) As Short

.

    Private Shared Function SQLMoreResults(ByVal statementHandle As IntPtr) As Short

.

    ByVal henv As IntPtr, _

.

    ByVal attribute As Integer, _

.

    ByVal valuePtr As IntPtr, _

.

    ByVal strLength As Integer ) As Short

.

      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

.

  Declare Function GetUserNameExA Lib "secur32.dll" (ByVal nameFormat As Integer, _

.

  ByVal userName As System.Text.StringBuilder, ByRef userNameSize As Integer) As Integer

.

    ByVal phContext As IntPtr, _

.

    ByVal pszTargetName As String, _

.

    ByVal fContextReq As Integer, _

.

    ByVal Reserved1 As Integer, _

.

    ByVal TargetDataRep As Integer, _

.

    ByVal pInput As IntPtr, _

.

    ByVal Reserved2 As Integer, _

.

                    [MarshalAs(UnmanagedType.ByValArray,SizeConst=8)] public byte[] SourceName;

.

    Public Shared Function CredPackAuthenticationBuffer(ByVal dwFlags As UInt32, ByVal pszUserName As String, ByVal pszPassword As String, ByVal pPackedCredentials As IntPtr, ByRef pcbPackedCredentials As UInt32) As <MarshalAs(UnmanagedType.Bool)> Boolean

.

                            byval targetName as string, _

.

                            byval reserved1 as IntPtr, _

.

                            byval iError as int32, _

.

                            byval UserName as StringBuilder, _

.

                            byval maxUserName AS int32, _

.

                            byval password AS StringBuilder, _

.

                            byval maxPassword as inte32, _