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

Private Shared Function StartDocPrinter(ByVal hPrinter As IntPtr, ByVal level As Integer, ByRef pDocInfo As DOC_INFO_1) As Integer

    Public Function StartDoc(hPrinter as IntPtr, ByVal documentTitle 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

Declare Function GetUName Lib "getuname.dll" (ByVal wCharCode As UShort, <MarshalAs(UnmanagedType.LPWStr)> ByVal lpbuf As StringBuilder) As Integer

     Private Declare Function GetUName Lib "getuname.dll" (ByVal wCharCode As UShort, <MarshalAs(UnmanagedType.LPWStr)> ByVal lpbuf As System.Text.StringBuilder) As Integer

    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 CreateEnvironmentBlock(ByRef lpEnvironment As IntPtr, ByVal hToken As IntPtr, ByVal bInherit As Boolean) As Boolean

Public Shared Function DestroyEnvironmentBlock(ByVal lpEnvironment As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean

        Public Shared Function LoadUserProfile(ByVal hToken As IntPtr, ByRef lpProfileInfo As PROFILEINFO) As Boolean

Shared Function UnloadUserProfile(ByVal hToken As IntPtr, ByVal hProfile As IntPtr) As Boolean

Declare Function AVIFileCreateStream Lib "avifil32.dll" Alias "AVIFileCreateStreamA" (ByVal pfile As IntPtr, ByRef ppavi As IntPtr, ByRef psi As AVISTREAMINFO) As Integer

    Public Shared Function AVIFileRelease(ByVal pfile As IntPtr) As Integer

    Public Shared Function AVIFileInfo(ByVal pfile As IntPtr,

                       ByVal lSize As Integer) As Integer

    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=64)> Public szFileType As String

    Public Shared Function AVIStreamGetFrameOpen(ByVal pAVIStream As IntPtr, _

      Public Shared Function AVIStreamReadFormat(ByVal aviStream As IntPtr,

                         ByVal lPos As Int32,

    Public Shared Function AVIStreamReadFormat(ByVal aviStream As IntPtr,

                           ByVal lPos As Int32,

    Public Shared Function AVIStreamReadFormat2(ByVal aviStream As IntPtr, ByVal lPos As Int32, ByRef lpFormat As BITMAPINFOHEADER, ByRef cbFormat As Int32) As Integer

      Public Shared Function AVIStreamReadFormat(ByVal aviStream As IntPtr,

                         ByVal lPos As Int32,

    Public Shared Function AVIStreamReadFormat(ByVal aviStream As IntPtr,

                           ByVal lPos As Int32,

    '<MarshalAs(UnmanagedType.ByValArray, SizeConst:=4)> Public biCompression As Char()  ' for recup directly char (string) FOURCC

    Public Shared Function AVIStreamReadFormat2(ByVal aviStream As IntPtr, ByVal lPos As Int32, ByRef lpFormat As BITMAPINFOHEADER, ByRef cbFormat As Int32) As Integer

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

        ByVal socketHandle As IntPtr, _

   Public Function inet_ntoa(ByVal IpAddress As Integer) As String

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

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

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

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

    [MarshalAs(UnmanagedType.ByValArray, SizeConst = 255 /* WSAPROTOCOL_LEN */ + 1)]

    [MarshalAs(UnmanagedType.ByValArray, SizeConst = 7 /* MAX_PROTOCOL_CHAIN */)]

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

Private Delegate Function EnhMetaFileProc(ByVal hdc As IntPtr, ByVal lpht As IntPtr, <[In]> ByRef lpmr As ENHMETARECORD, ByVal hHandles As Integer, ByVal data As IntPtr) As Integer

Private Delegate Function EnumDesktopsDelegate(ByVal desktop As String, ByVal lParam As IntPtr) As Boolean

Private Delegate Function EnumFontExDelegate(ByRef lpelfe As ENUMLOGFONTEX, ByVal lpntme As IntPtr, ByVal FontType As Integer, ByVal lParam As Integer) As Integer

Private Delegate Function EnumObjectsProc(ByVal lpLogObject As IntPtr, ByVal lParam As IntPtr) As Integer

Private Delegate Function EnumWindowsProc(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean

Private Delegate Function EnumWindowsProc(ByVal hWnd As IntPtr, ByRef lParam As IntPtr) As Boolean

Private Delegate Function HookProc(ByVal code As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer

Private Delegate Function LowLevelKeyboardProc(ByVal nCode As Integer, ByVal wParam As WindowsMessages, <[In]> ByVal lParam As KBDLLHOOKSTRUCT) As Integer

Private Delegate Function LowLevelMouseProc(ByVal code As Integer, ByVal wParam As WindowsMessages, <[In]> ByVal lParam As MSLLHOOKSTRUCT) As IntPtr

Private Delegate Sub MsgBoxCallback(ByVal lpHelpInfo As HELPINFO)

Private Delegate Function PwrSchemesEnumProc(ByVal uiIndex As UInteger, ByVal dwName As UInt32, <MarshalAs(UnmanagedType.LPWStr)> ByVal sName As String, ByVal dwDesc As UInt32, MarshalAs(UnmanagedType.LPWStr)> ByVal sDesc As String, ByRef pp As PowerPolicy, ByVal lParam As Integer) As Boolean

''' <param name="completionArg">ByVal completionArg As IntPtr</param>

''' <param name="timerLowValue">ByVal timerLowValue As UInt32</param>

''' <param name="timerHighValue">ByVal timerHighValue As UInt32</param>

Private Delegate Sub TimerAPCProc(ByVal completionArg As IntPtr, ByVal timerLowValue As UInt32, ByVal timerHighValue As UInt32)