static extern short SQLAllocConnect(IntPtr EnvironmentHandle, out IntPtr ConnectionHandle);

  IntPtr connectionHandle  = IntPtr.Zero;

static extern short SQLAllocEnv(out IntPtr EnvironmentHandle);

    IntPtr environmentHandle = IntPtr.Zero;

extern static short SQLAllocHandle(ushort HandleType, int InputHandle, out IntPtr OutputHandle);

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

    private static extern short SQLAllocHandle(short hType, IntPtr inputHandle, out IntPtr outputHandle);

    private static extern short SQLSetEnvAttr(IntPtr henv, int attribute, IntPtr valuePtr, int strLength);

    private static extern short SQLFreeHandle(short hType, IntPtr handle);

    private static extern short SQLBrowseConnect(IntPtr hconn, StringBuilder inString,

        IntPtr henv = IntPtr.Zero;

        IntPtr hconn = IntPtr.Zero;

            if (SQL_SUCCESS == SQLSetEnvAttr(henv, SQL_ATTR_ODBC_VERSION, (IntPtr)SQL_OV_ODBC3, 0))

        if (hconn != IntPtr.Zero)

        if (henv != IntPtr.Zero)

static extern short SQLAllocStmt(IntPtr ConnectionHandle, out IntPtr StatementHandle);

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

    ByRef statementHandle As IntPtr) As Short

TargetType, HandleRef TargetValue, int BufferLength, out IntPtr StrLen_or_Ind);

IntPtr, <Out> ByRef StrLen_or_Ind As IntPtr) As Short

            IntPtr environmentHandle = IntPtr.Zero;

            IntPtr dbcHandle = IntPtr.Zero;

            IntPtr stmtHandle = IntPtr.Zero;

            IntPtr temp = IntPtr.Zero;

            IntPtr szTableName = Marshal.AllocHGlobal(256);

            SQLSetEnvAttr(environmentHandle.ToInt32(), SQL_ATTR_ODBC_VERSION, new IntPtr(SQL_OV_ODBC3), 0);

            short retcode = SQLDriverConnect(dbcHandle, IntPtr.Zero, connectionString, 256, completedConnString, 1024, out strLength, SQL_DRIVER_COMPLETE);

  private static extern short SQLBrowseConnect( IntPtr handleConnection, StringBuilder connectionString, short stringLength, StringBuilder outConnection, short bufferLength, out short stringLength2Ptr );

        IntPtr StatementHandle,

        IntPtr StatementHandle,

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

static extern short SQLDataSources(IntPtr EnvironmentHandle, short Direction,

    IntPtr sql_env_handle = IntPtr.Zero;

    rc = SQLSetEnvAttr(sql_env_handle, SQL_ATTR_ODBC_VERSION, (IntPtr)SQL_OV_ODBC3, 0);

    if (sql_env_handle != IntPtr.Zero)

    Dim hEnv As IntPtr

public static extern short  SQLDisconnect(IntPtr ConnectionHandle);

    public static extern short SQLDriverConnect(IntPtr  hdbc,

        IntPtr    hwnd,

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

                string msg  = GetError(IntPtr.Zero) + "\nconnection string:\n\t" + connstr;

    string GetError(IntPtr stmt)

            connectionHandle = IntPtr.Zero;

            environmentHandle = IntPtr.Zero;

static extern short  SQLError(IntPtr EnvironmentHandle,

        IntPtr        ConnectionHandle,

        IntPtr        StatementHandle,

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

  static extern short SQLFetch(IntPtr StatementHandle);

    Private Function SQLFetch(ByVal statementHandle As IntPtr) As Short

  static extern short SQLFreeConnect(IntPtr ConnectionHandle);

static extern short SQLFreeEnv(IntPtr EnvironmentHandle);

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

static extern short SQLFreeHandle(ushort HandleType, IntPtr InputHandle);

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

static extern short SQLFreeStmt(IntPtr StatementHandle, ushort Option);

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

    static extern short SQLGetData(IntPtr StatementHandle,

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

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

   short record, short diagIdentifier, IntPtr diagInfoPtr,

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

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

    IntPtr envHandle,

    IntPtr attrValue,

    IntPtr envHandle,

    ByVal henv As IntPtr, _

    ByVal valuePtr As IntPtr, _

    static extern short SQLTables(IntPtr StatementHandle,

        statementHandle = IntPtr.Zero;

     public extern bool DeleteUrlCacheEntry(IntPtr lpszUrlName);

    ByVal lpszUrlName As IntPtr) As Boolean

        IntPtr lpReserved);

    ByVal lpReserved As IntPtr) As Boolean

public static extern IntPtr FindFirstUrlCacheEntry([MarshalAs(UnmanagedType.LPTStr)] string lpszUrlSearchPattern,IntPtr lpFirstCacheEntryInfo,ref int lpdwFirstCacheEntryInfoBufferSize);

     ByVal lpFirstCacheEntryInfo As IntPtr, _

     ByRef lpdwFirstCacheEntryInfoBufferSize As Int32) As IntPtr

static extern IntPtr FindFirstUrlCacheGroup(

    IntPtr lpSearchCondition,

    IntPtr lpReserved);

    ByVal lpSearchCondition As IntPtr, _

    ByVal lpReserved As IntPtr) As IntPtr

        IntPtr hFind,

        IntPtr lpNextCacheEntryInfo,

        ByVal hFind As IntPtr, _

        ByVal lpNextCacheEntryInfo As IntPtr, _

    IntPtr hFind,

    IntPtr lpReserved);

    ByVal hFind As IntPtr, _

    ByVal lpReserved As IntPtr) As Boolean

(IntPtr hFtpSession,

IntPtr dwContext,

IntPtr phFtpCommand);

(ByVal hFtpSession As IntPtr, _

ByVal dwContext As IntPtr, _

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

Dim ret As Boolean = FTPCommandA(ConnectionHandle, False, 0, sCommand, IntPtr.Zero, IntPtr.Zero)

static extern bool FtpCreateDirectory(IntPtr hConnect, string lpszDirectory);

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

static extern bool FtpDeleteFile(IntPtr hConnect, string fileName);

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

   static extern IntPtr FtpFindFirstFile(IntPtr hConnect,

   int flags, IntPtr context);

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

   ByVal context As IntPtr) As IntPtr

static extern bool FtpGetCurrentDirectory(IntPtr hConnect,

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

' and Me.hINetConn is an IntPtr opened by InternetConnect

static extern bool FtpGetFile(IntPtr hConnect, string remoteFile,

   int flagsAndAttributes, int flags, IntPtr context);

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

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

        internetHandle = IntPtr.Zero;

        ftpHandle = IntPtr.Zero;

    private static extern IntPtr InternetConnectW(

        IntPtr hInternet,

    public static extern IntPtr InternetOpenW(

        IntPtr hFtpConn,

        IntPtr hFtpConn,

        IntPtr hFtpConn,

    public static extern long InternetCloseHandle(IntPtr hInet);

    private IntPtr internetHandle;

    private IntPtr ftpHandle;

        if (internetHandle == IntPtr.Zero)

        if (internetHandle == IntPtr.Zero)

        if (ftpHandle == IntPtr.Zero)

        if (ftpHandle == IntPtr.Zero)

        if (ftpHandle != IntPtr.Zero)

        ftpHandle = IntPtr.Zero;

        if (internetHandle != IntPtr.Zero)

        internetHandle = IntPtr.Zero;

static extern bool FtpPutFile(IntPtr hConnect, string lpszLocalFile, string lpszNewRemoteFile, int dwFlags, IntPtr dwContext);

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

public static extern bool FtpRemoveDirectory(IntPtr ulSession, string lpszDirectory);

public static extern bool FtpRenameFile(IntPtr ulSession, string oldFileName, string newFileName);

static extern bool FtpSetCurrentDirectory(IntPtr hFtpConnection, string lpszDirectory);

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

static extern IntPtr HttpOpenRequest(

    IntPtr hConnect,

    IntPtr dwContext);

static extern bool HttpQueryInfo(IntPtr hInternet, int dwInfoLevel, ref long lpBuffer, ref long lpdwBufferLength, ref long lpdwIndex);

    [In] IntPtr hRequest,

    [In] IntPtr lpOptional,

static extern bool InternetCloseHandle(IntPtr hInternet);

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

static extern IntPtr InternetConnect(

   IntPtr hInternet, string lpszServerName, short nServerPort,

   int dwFlags, IntPtr dwContext);

    ByVal hInternetSession As System.IntPtr,

    ByVal lContext As System.IntPtr) As System.IntPtr

private static extern Int32 InternetDial(IntPtr hwndParent, string lpszConnectoid, Int32 dwFlags, ref Int32 lpdwConnection, Int32 dwReserved);

int nResult = InternetDial(IntPtr.Zero ,"Your connection",(int)InternetDialFlags.INTERNET_DIAL_UNATTENDED ,ref nConnection , 0);

static extern bool InternetFindNextFile(IntPtr hFind,

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

static extern bool InternetGetCookieEx(string pchURL, string pchCookieName, StringBuilder pchCookieData, ref System.UInt32 pcchCookieData, int dwFlags, IntPtr lpReserved);

    static extern bool InternetGetCookieEx(string pchURL, string pchCookieName, StringBuilder pchCookieData, ref System.UInt32 pcchCookieData, int dwFlags, IntPtr lpReserved);

        if (!InternetGetCookieEx(url, null, cookieData, ref datasize, 0x00002000, IntPtr.Zero))

        if (!InternetGetCookieEx(url, null, cookieData, ref datasize, 0x00002000, IntPtr.Zero))

static extern bool InternetGetCookieEx(string pchURL, string pchCookieName, StringBuilder pchCookieData, ref System.UInt32 pcchCookieData, int dwFlags, IntPtr lpReserved);

static extern IntPtr InternetOpen(

    IntPtr hInternet = InternetOpen("browser", INTERNET_OPEN_TYPE_DIRECT, null, null, 0);

    if (IntPtr.Zero == hInternet)

    public IntPtr szConnection;

    public IntPtr options;

static extern bool InternetQueryOption(IntPtr hInternet, uint dwOption, char[] lpBuffer, ref int lpdwBufferLength);

<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

    static extern bool InternetSetCookieEx(string lpszUrlName, string lpszCookieName, string lpszCookieData, uint dwFlags, IntPtr dwReserved );

InternetSetCookieEx("http://foo.bar.baz", "COOKIE_NAME", "COOKIE_VALUE" "; Expires = " DateTime.Now.AddDays(10).ToString("R"), 2147484672, IntPtr.Zero);

public static extern bool InternetSetOption(IntPtr hInternet, int

dwOption, IntPtr lpBuffer, int dwBufferLength);

Public Shared Function InternetSetOption(hInternet As IntPtr, dwOption As Integer, lpBuffer As IntPtr, dwBufferLength As Integer) As Boolean

     public IntPtr proxy;

     public IntPtr proxyBypass;

     private static extern bool InternetSetOption(IntPtr hInternet,

     IntPtr lpBuffer,

     IntPtr intptrStruct = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI));

     // Converting structure to IntPtr

     Marshal.StructureToPtr(struct_IPI, intptrStruct, true);

     bool iReturn = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, Marshal.SizeOf(struct_IPI));

    <FieldOffset(4)> Public lpszSourceUrlName As IntPtr

    <FieldOffset(8)> Public lpszLocalFileName As IntPtr

    <FieldOffset(64)> Public lpHeaderInfo As IntPtr

    <FieldOffset(72)> Public lpszFileExtension As IntPtr

    <FieldOffset(4)> Public lpszSourceUrlName As IntPtr

    <FieldOffset(8)> Public lpszLocalFileName As IntPtr

    <FieldOffset(64)> Public lpHeaderInfo As IntPtr

    <FieldOffset(72)> Public lpszFileExtension As IntPtr

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

static extern bool AddClipboardFormatListener(IntPtr hwnd);

Public Function AddClipboardFormatListener(hWnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)>Boolean

static extern bool AnimateWindow(IntPtr hwnd, int time, AnimateWindowFlags flags);

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