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

    ByVal lpszUrlName As IntPtr) As Boolean

    ByVal GroupId As Long, _

    ByVal dwFlags As Int32, _

    ByVal lpReserved As IntPtr) As Boolean

    <MarshalAs(UnmanagedType.LPStr)> ByVal lpszUrlSearchPattern As String, _

     ByVal lpFirstCacheEntryInfo As IntPtr, _

    ByVal dwFlags As Int32, _

    ByVal dwFilter As Integer, _

    ByVal lpSearchCondition As IntPtr, _

    ByVal dwSearchCondition As Int32, _

    ByVal lpReserved As IntPtr) As IntPtr

        ByVal hFind As IntPtr, _

        ByVal lpNextCacheEntryInfo As IntPtr, _

    ByVal hFind As IntPtr, _

    ByVal lpReserved As IntPtr) As Boolean

(ByVal hFtpSession As IntPtr, _

<MarshalAs(UnmanagedType.Bool)> ByVal fExpectResponse As Boolean, _

ByVal dwFlags As Integer, _

ByVal lpszCommand As String, _

ByVal dwContext As IntPtr, _

ByVal phFtpCommand As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean

  Private Shared Function FtpCreateDirectory(ByVal hConnect As IntPtr, ByVal lpszDirectory As String) As Boolean

   (ByVal hConnect As IntPtr, ByVal fileName As String) _

   (ByVal hConnect As IntPtr, ByVal searchFile As String, _

   ByRef findFileData As WIN32_FIND_DATA, ByVal flags As Integer, _

   ByVal context As IntPtr) As IntPtr

   (ByVal hConnect As IntPtr, ByVal directory As StringBuilder, ByRef bufferLength As Integer) _

Declare Function FtpGetFile Lib "wininet.dll" (ByVal hConnect As IntPtr, _

   ByVal remoteFile As String, ByVal newFile As String, _

   <MarshalAs(UnmanagedType.Bool)> ByVal failIfExists As Boolean, _

   ByVal flagsAndAttributes As Integer, ByVal flags As Integer, _

   ByVal context As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean

Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As IntPtr, ByVal lpszLocalFile As String, ByVal lpszRemoteFile As String, ByVal dwFlags As Integer, ByVal dwContext As Integer) As Boolean

                (ByVal hConnect As Integer, ByVal lpszExisting As String, _

                ByVal lpszNew As String) As Boolean

Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hConnect As IntPtr, ByVal lpszDirectory As String) As Boolean

Public Declare Function HttpQueryInfo Lib "wininet.dll" Alias "HttpQueryInfoA" (ByVal hHttpRequest As Integer, ByVal lInfoLevel As Integer, ByVal sBuffer As String, ByRef lBufferLength As Integer, ByRef lIndex As Integer) As Integer

Public Declare Function InternetAttemptConnect Lib "wininet" (Optional ByVal dwReserved As Long = 0) As Long

  Private Declare Function InternetAttemptConnect Lib "wininet" (Optional ByVal dwReserved As Integer = 0) As Integer

Declare Function InternetCheckConnection Lib "wininet.dll" (ByVal lpszUrl As String, ByVal dwFlags As Integer, ByVal dwReserved As Integer) As Boolean

    ByVal hInet As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean

    ByVal hInternetSession As System.IntPtr,

    ByVal sServerName As String,

    ByVal nServerPort As Integer,

    ByVal sUsername As String,

    ByVal sPassword As String,

    ByVal lService As Int32,

    ByVal lFlags As Int32,

    ByVal lContext As System.IntPtr) As System.IntPtr

Declare Function InternetCrackUrl Lib "wininet.dll" (ByVal lpszUrl As String, ByVal dwUrlLength As Integer, ByVal dwFlags As Integer, ByRef lpUrlComponents As URL_COMPONENTS) As <MarshalAs(UnmanagedType.Bool)> Boolean

   (ByVal hFind As IntPtr, ByRef findFileData As WIN32_FIND_DATA) _

  (ByRef lpdwFlags As Int32, ByVal dwReserved As Int32) As Boolean

Declare Function InternetGetCookieEx Lib "wininet.dll" Alias "InternetGetCookieExA" (ByVal pchURL As String, ByVal pchCookieName As String, _

    ByVal pchCookieData As System.Text.StringBuilder, ByRef pcchCookieData As Integer, ByVal flags As Integer, ByVal reserved As Integer) As _

Declare Function InternetGetCookieEx Lib "wininet.dll" Alias "InternetGetCookieExA" (ByVal pchURL As String, ByVal pchCookieName As String, _

    ByVal pchCookieData As System.Text.StringBuilder, ByRef pcchCookieData As Integer, ByVal flags As Integer, ByVal reserved As Integer) As _

   (ByRef errorCode As Integer, ByVal buffer As String, ByRef bufferLength As Integer) _

    ByVal sAgent As String, _

    ByVal lAccessType As Int32, _

    ByVal sProxyName As String, _

    ByVal sProxyBypass As String, _

    ByVal lFlags As Integer) As Int32

<DllImport("wininet.dll", SetLastError:=True)> Shared Function InternetQueryOption(ByVal hInternet As IntPtr, ByVal dwOption As UInteger, ByVal  lpBuffer() As Char, ByRef lpdwBufferLength As Integer) As Boolean

    Shared Function PrivacySetZonePreference( ByVal dwZone As Integer, ByVal dwType As Integer, ByVal dwTemplate As Integer, <MarshalAs(UnmanagedType.LPWStr)> ByVal lpszPreference As StringBuilder) As Integer

    Private Sub cmdGetPolicy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGetPolicy.Click

    Shared Function PrivacySetZonePreference( ByVal dwZone As Integer, ByVal dwType As Integer, ByVal dwTemplate As Integer, <MarshalAs(UnmanagedType.LPWStr)> ByVal lpszPreference As StringBuilder) As Integer

    Private Sub cmdSetPolicy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSetPolicy.Click

    ByVal hRadio As IntPtr, _

    ByVal enable As Integer) As Integer

    ByVal hRadio As IntPtr, _

    ByVal enable As Boolean) As Integer

    ByVal hFind As IntPtr) As Integer

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

    ByVal hFind As IntPtr, _

    Private Shared Function BluetoothFindRadioClose(ByVal hFind As IntPtr) As Integer

    ByVal hRadio As IntPtr, _

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

    Private Shared Function BluetoothIsConnectable(ByVal hRadio As IntPtr) As Integer

    Private Shared Function BluetoothIsDiscoverable(ByVal hRadio As IntPtr) As Integer

Public Shared Function ActivateKeyboardLayout(ByVal nkl As IntPtr, ByVal Flags As uint) As Integer

          ByVal dsStyle As WindowStyles, _

          ByVal bMenu As Long, _

          ByVal dwEsStyle As WindowStylesEx) As Long

          ByVal dsStyle As WindowStyles, _

          ByVal bMenu As Long, _

          ByVal dwEsStyle As WindowStylesEx) As Long

Shared Function AllowSetForegroundWindow(ByVal dwProcessId As Integer) As Boolean

Shared Function AnimateWindow(ByVal hwnd As IntPtr, ByVal time As Integer, ByVal flags As AnimateWindowFlags) As Boolean

Shared Function AppendMenu(ByVal hMenu As IntPtr, ByVal uFlags As MenuFlags, ByVal uIDNewItem As Int32, ByVal lpNewItem As String) As Boolean

    Private Shared Function GetSystemMenu(ByVal hWnd As IntPtr, ByVal bRevert As Boolean) As IntPtr

    Shared Function AppendMenu(ByVal hMenu As IntPtr, ByVal uFlags As MenuFlags, ByVal uIDNewItem As Int32, ByVal lpNewItem As String) As Boolean

    Private Sub insertMenu(ByVal strMenuItem As String)