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

    ByRef statementHandle As IntPtr) As Short

IntPtr, <Out> ByRef StrLen_or_Ind As IntPtr) 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

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

    ByRef strLen_or_Ind As Integer) As Short

    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

     ByRef lpdwFirstCacheEntryInfoBufferSize As Int32) As IntPtr

    ByRef lpGroupId As Long, _

        ByRef lpdwNextCacheEntryInfoBufferSize As Integer) As Boolean

    ByRef lpGroupId As Long, _

[MarshalAs(UnmanagedType.VBByRefStr)] ref string lpszCommand,

   ByRef findFileData As WIN32_FIND_DATA, ByVal flags As Integer, _

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

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

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

Function Get_InternetConnectedState(ByRef p_lngFlags As Long, Optional ByRef p_return_str As String = "") As Boolean

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

    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) _

<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

    <[In]()> ByRef searchParams As BluetoothDeviceSearchParams, _

    ByRef deviceInfo As BluetoothDeviceInfo) As IntPtr

    <[In]()> ByRef findRadioParams As BluetoothFindRadioParams, _

    <Out()> ByRef hRadio As IntPtr) As IntPtr

    ByRef pbtdi As BluetoothDeviceInfo) As Integer

    ByRef pRadioInfo As BluetoothRadioInfo) As UInteger

Public Function AdjustWindowRectEx(<MarshalAs(UnmanagedType.Struct)>byref lpRect As RECT, _

Public Function AdjustWindowRectEx(<MarshalAs(UnmanagedType.Struct)>byref lpRect As RECT, _

Public Shared Function BeginPaint(ByVal hwnd As IntPtr, <Out()> ByRef lpPaint As PAINTSTRUCT) As IntPtr

Shared Function Show CallMsgFilter(<[In]> ByRef lpMsg As MSG, nCode As Integer) As Boolean

Private Shared Function CallNextHookEx(ByVal hhk As IntPtr, ByVal nCode As Integer, ByVal wParam As WindowsMessages, <[In]()> ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr

Private Shared Function CallNextHookEx(ByVal hhk As IntPtr, ByVal nCode As Integer, ByVal wParam As WindowsMessages, <[In]()> ByRef lParam As MSLLHOOKSTRUCT) As IntPtr

Private Shared Function ChangeDisplaySettingsEx(ByVal lpszDeviceName As String, ByRef lpDevMode As DEVMODE, ByVal hwnd As IntPtr, ByVal dwflags As UInteger, ByVal lParam As IntPtr) As DISP_CHANGE

Private Shared Function ChangeWindowMessageFilterEx(hWnd As IntPtr, msg As UInteger, action As ChangeWindowMessageFilterExAction, ByRef changeInfo As CHANGEFILTERSTRUCT) As <MarshalAs(UnmanagedType.Bool)> Boolean

Private Shared Function ClientToScreen(ByVal hWnd As IntPtr, ByRef lpPoint As Point) As Boolean

Private Declare Function ClipCursor Lib "user32"(ByRef lpRect As RECT) As Long

     ByRef lpmsg As MSG) As IntPtr

    ByRef lpRect As Rect _

Public Shared Function EndPaint(ByVal hwnd As IntPtr, <[In]()> ByRef lpPaint As PAINTSTRUCT) As IntPtr

Public Shared Function EnumDisplayDevices(ByVal lpDevice As String, ByVal iDevNum As UInteger, ByRef lpDisplayDevice As DISPLAY_DEVICE, ByVal dwFlags As UInteger) As Integer

Private Shared Function EnumDisplaySettingsEx(ByVal lpszDeviceName As String, ByVal iModeNum As UInteger, ByRef lpDevMode As DEVMODE, ByVal dwFlags As UInteger) As Boolean

Private Shared Function EnumDisplaySettingsEx(ByVal lpszDeviceName As String, ByVal iModeNum As UInteger, ByRef lpDevMode As DEVMODE, ByVal dwFlags As UInteger) As Boolean

Private Shared Function FillRect(hDC As IntPtr, ByRef lprc As RECT, hbr As IntPtr) As Integer

    Private Declare Function FlashWindowEx Lib "User32" (ByRef fwInfo As FLASHWINFO) As Boolean

    Public Function FlashWindow(ByRef frm As Windows.Forms.Form) As Boolean

    Public Function FlashWindow(ByRef frm As Windows.Forms.Form, ByVal FlashTitleBar As Boolean, ByVal FlashTray As Boolean) As Boolean

    Public Function FlashWindow(ByRef frm As Windows.Forms.Form, ByVal FlashCount As Integer) As Boolean

    Public Function FlashWindow(ByRef frm As Windows.Forms.Form, ByVal FlashTitleBar As Boolean, ByVal FlashTray As Boolean, ByVal FlashCount As Integer) As Boolean

    Public Function FlashWindow(ByRef frm As Windows.Forms.Form) As Boolean

    Public Function FlashWindow(ByRef frm As Windows.Forms.Form, ByVal FlashTitleBar As Boolean, ByVal FlashTray As Boolean) As Boolean

    Public Function FlashWindow(ByRef frm As Windows.Forms.Form, ByVal FlashCount As Integer) As Boolean

    Public Function FlashWindow(ByRef frm As Windows.Forms.Form, ByVal FlashTitleBar As Boolean, ByVal FlashTray As Boolean, ByVal FlashCount As Integer) As Boolean

  ByRef pati As ALTTABINFO, _

  ByRef pszItemText As System.Text.StringBuilder, _

Private Declare Function GetCaretPos Lib "user32" (ByRef lpPoint As Point) As Integer

Private Shared Function GetClassInfoEx(hInstance As IntPtr, lpClassName As String, ByRef lpWndClass As WNDCLASSEX) As Boolean

Private Shared Function GetClassInfoEx(hInstance As IntPtr, lpClassName As String, ByRef lpWndClass As WNDCLASSEX) As Boolean

   ByRef lpRECT As RECT) As Integer

Public Shared Function GetComboBoxInfo(ByVal hWnd As IntPtr, ByRef pcbi As COMBOBOXINFO) As Boolean

    Public Shared Function GetCursorPos(ByRef lpPoint As POINT) As <MarshalAs(UnmanagedType.Bool)> Boolean

   (ByRef lpPoint As POINT) as boolean

   Public Function GetCursorPos(<[In](), Out()> ByRef pt As POINT) As Boolean

    Public Shared Function GetCursorPos(ByRef lpPoint As POINT) As <MarshalAs(UnmanagedType.Bool)> Boolean

   (ByRef lpPoint As POINT) as boolean

   Public Function GetCursorPos(<[In](), Out()> ByRef pt As POINT) As Boolean

Public Declare Function GetIconInfo Lib "user32" (ByVal hIcon As IntPtr, ByRef piconinfo As ICONINFO) As Boolean

    Public Shared Function GetIconInfo(ByVal hIcon As System.IntPtr, ByRef piconinfo As ICONINFO) As <System.Runtime.InteropServices.MarshalAsAttribute(System.Runtime.InteropServices.UnmanagedType.Bool)> Boolean

Shared Function GetLastInputInfo(ByRef plii As LASTINPUTINFO) As Boolean

Declare Function GetRawInputDeviceInfo Lib "user32.dll" Alias "GetRawInputDeviceInfoW" (ByVal hDevice As IntPtr, ByVal uiCommand As DeviceInfoTypes, ByVal pData As IntPtr, ByRef pcbSize As UInteger) As Integer

    IntPtr, ByRef puiNumDevices As Int32, ByVal cbSize As Int32) As Int32

    IntPtr, ByRef puiNumDevices As Long, ByVal cbSize As Long) As Long

        <MarshalAs(UnmanagedType.Struct)>ByRef lpsi As SCROLLINFO) As Integer

Declare Function GetScrollInfo Lib "user32" (ByVal hWnd As IntPtr, ByVal fnBar As ScrollBarDirection, ByRef lpsi As SCROLLINFO) As Integer

Public Function GetScrollRange(ByVal hWnd As IntPtr, ByVal nBar As Integer, ByRef lpMinPos As Integer, ByRef lpMaxPos As Integer) As Boolean

Private Shared Function GetUpdateRect(ByVal hWnd As IntPtr, ByRef rect As RECT, ByVal bErase As Boolean) As Boolean

  Private Shared Function GetUserObjectInformation(ByVal hObj As IntPtr, ByVal nIndex As Int32, ByRef pvInfo As Byte(), <MarshalAs(UnmanagedType.I4)> ByVal nLength As Int32, <MarshalAs(UnmanagedType.I4)> ByRef lpnLengthNeeded As Int32) As Boolean