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

    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 Unicode Function LoadIFilter Lib "query.dll" (ByVal pwcsPath As String, _

           <MarshalAs(UnmanagedType.IUnknown)> ByVal pUnkOuter As Object, _

Public Declare Function AlphaBlend Lib "coredll" (ByVal hdcDest As IntPtr, ByVal xDest As Int32, ByVal yDest As Int32, ByVal cxDest As Int32, ByVal cyDest As Int32, ByVal hdcSrc As IntPtr, ByVal xSrc As Int32, ByVal ySrc As Int32, ByVal cxSrc As Int32, ByVal cySrc As Int32, ByVal blendFunction As BlendFunction) As Integer

To pass a variable by value (i.e. any change made to the variable's value within the function/sub will not affect it outside the function/sub.) use ByVal.

static extern TODO ByVal(TODO);

Declare Function ByVal Lib "coredll.dll" (TODO) As TODO

Declare Function CeClearUserNotification Lib "coredll" (ByVal hNotification As Integer) As Boolean

Private Shared Function CeFindCloseRegChange(ByVal hChangeHandle As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean

Private Shared Function CeFindFirstRegChange(ByVal hKey As IntPtr, <MarshalAs(UnmanagedType.Bool)> ByVal bWatchSubtree As Boolean, ByVal dwNotifyFilter As RegNotifyFilter) As IntPtr

Private Shared Function CeFindNextRegChange(ByVal hChangeHandle As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean

Declare Function CeGetUserNotificationHandles Lib "coredll" (ByVal rghNotifications As IntPtr(), ByVal chandles As UInt32, ByRef pcHandlesNeeded As UInt32) As Boolean

       (ByVal AppName As String, ByRef lWhichEvent As Integer) As Boolean

       (ByVal AppName As String, ByRef ExecTime As SYSTEMTIME) As Boolean

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

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

Declare Function ChangeDisplaySettingsEx Lib "coredll.dll" (ByVal lpszDeviceName As String, ByVal lpDevMode As Byte(), ByVal hwnd As IntPtr, ByVal dwflags As CDSFlags, ByVal lParam As IntPtr) As CDSRet

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

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

    Public Sub New(ByVal size As Integer)

    Public Function GetChar(ByVal offset As Integer) As Char

    Public Sub SetChar(ByVal offset As Integer, ByVal val As Char)

    Public Function GetInt32(ByVal offset As Integer) As Int32

    Public Sub SetInt32(ByVal offset As Integer, ByVal val As Int32)

    Public Function GetUInt32(ByVal offset As Integer) As UInt32

    Public Sub SetUInt32(ByVal offset As Integer, ByVal val As UInt32)

    Public Function GetInt16(ByVal offset As Integer) As Int16

    Public Sub SetInt16(ByVal offset As Integer, ByVal val As Int16)

    Public Function GetUInt16(ByVal offset As Integer) As UInt16

    Public Sub SetUInt16(ByVal offset As Integer, ByVal val As UInt16)

    Public Function GetStringUni(ByVal offset As Integer, ByVal len As Integer) As String

    Public Sub SetStringUni(ByVal str As String, ByVal offset As Integer, ByVal len As Integer)

    Default Public Property Item(ByVal offset As Integer) As Byte

        Set(ByVal value As Byte)

    Public Function [Get](ByVal t As Type, ByVal offset As Integer) As Object

    Public Sub [Set](ByVal t As Type, ByVal offset As Integer, ByVal Val As Object)

        Set(ByVal value As String)

        Set(ByVal value As UShort)

        Set(ByVal value As UShort)

        Set(ByVal value As UShort)

        Set(ByVal value As UShort)

        Set(ByVal value As DM_Fields)

        Set(ByVal value As DM_Orient)

        Set(ByVal value As Short)

        Set(ByVal value As Short)

        Set(ByVal value As Short)

        Set(ByVal value As Short)

        Set(ByVal value As Short)

        Set(ByVal value As Short)

        Set(ByVal value As Short)

        Set(ByVal value As Short)

        Set(ByVal value As Short)

        Set(ByVal value As Short)

        Set(ByVal value As Short)

        Set(ByVal value As Short)

        Set(ByVal value As String)

        Set(ByVal value As UShort)

        Set(ByVal value As UInteger)

        Set(ByVal value As UInteger)

        Set(ByVal value As UInteger)

        Set(ByVal value As UInteger)

        Set(ByVal value As UInteger)

        Set(ByVal value As DMD)

    Friend Shared Function ChangeDisplaySettingsEx(ByVal lpszDeviceName As String, ByVal lpDevMode As Byte(), ByVal hwnd As IntPtr, ByVal dwflags As CDSFlags, ByVal lParam As IntPtr) As CDSRet

    Public Function ChangeMode(ByVal degree As Integer) As String

Declare Function CreateEvent Lib "coredll.dll" (ByVal lpEventAttributes As IntPtr, ByVal bManualReset As Boolean, ByVal bInitialStatre As Boolean, ByVal lpName As String) As IntPtr

    Public Shared Function WaitForMultipleObjects(ByVal count As Integer, ByVal handle() As IntPtr, ByVal waitAll As Boolean, ByVal milliseconds As Integer) As Integer

    Public Shared Function WaitForSingleObject(ByVal handle As IntPtr, ByVal milliseconds As Integer) As Integer

    Public Shared Function CloseHandle(ByVal handle As IntPtr) As Boolean

    Public Shared Function CreateEvent(ByVal eventAttributes As IntPtr, <MarshalAs(UnmanagedType.Bool)> ByVal isManualReset As Boolean, <MarshalAs(UnmanagedType.Bool)> ByVal initialState As Boolean, <MarshalAs(UnmanagedType.BStr)> ByVal eventName As String) As IntPtr

    Public Shared Function EventModify(ByVal handle As IntPtr, ByVal eventAction As Integer) As Integer

    Public Shared Function SetEvent(ByVal handle As IntPtr) As Integer

    Public Shared Function ResetEvent(ByVal handle As IntPtr) As Integer

    Sub New(ByVal message As String, ByVal innerException As Exception)

    Sub New(ByVal message As String)

    Sub New(ByVal message As String, ByVal innerException As Exception)

    Sub New(ByVal initialState As Boolean, ByVal name As String, ByVal isManualResetEvent As Boolean)

    Public Shared Function WaitAny(ByRef waitHandles() As WaitEvent, Optional ByVal millisecondsTimeout As Integer = Infitite) As Integer

    Public Shared Function WaitAll(ByRef waitHandles() As WaitEvent, Optional ByVal millisecondsTimeout As Integer = Infitite) As Integer

    Private Shared Function Wait(ByRef waitEvents() As WaitEvent, ByVal waitAll As Boolean, ByVal millisecondsTimeout As Integer) As Integer

    Public Function WaitOne(Optional ByVal millisecondsTimeout As Integer = -1) As Integer

    Protected Overridable Sub Dispose(ByVal disposing As Boolean)

        ' Do not change this code.  Put cleanup code in Dispose(ByVal disposing As Boolean) above.

    Sub New(ByVal initialState As Boolean, Optional ByVal name As String = Nothing)

    Sub New(ByVal initialState As Boolean, Optional ByVal name As String = Nothing)

Declare Function CreateFile Lib "coredll" (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, ByVal lpSecurityAttributes As Integer, ByVal dwCreationDisposition As Integer, ByVal dwFLagsAndAttributes As Integer, ByVal hTemplateFile As Integer) As Integer

Declare Function CreateProcess Lib "coredll.dll" (ByVal imageName As String, ByVal cmdLine As String, ByVal lpProcessAttributes As IntPtr, ByVal lpThreadAttributes As IntPtr, ByVal boolInheritHandles As Int32, ByVal dwCreationFlags As Int32, ByVal lpEnvironment As IntPtr, ByVal lpszCurrentDir As IntPtr, ByVal si As Byte(), ByVal pi As IntPtr) As Integer

<DllImport("CoreDll.dll")> Function DeviceIoControl(ByVal hDevice As Integer, ByVal dwIoControlCode As Integer, _

                         ByVal lpInBuffer As String, ByVal nInBufferSize As Integer, _

                         ByVal lpOutBuffer() As Byte, ByVal nOutBufferSize As Integer, _

                         ByRef lpBytesReturned As Integer, ByVal lpOverlapped As Integer) As Integer

Declare Function ExtEscapeSet Lib "coredll" Alias "ExtEscape" (ByVal hdc As IntPtr, _

                          ByVal nEscape As Int32, _

                          ByVal cbInput As Int32, _

                          ByVal plszInData As Byte(), _

                          ByVal cbOutput As Int32, _

                          ByVal lpszOutData As IntPtr) As Int32

Public Declare Function FindWindow Lib "Coredll" Alias "FindWindowW" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr

Private Shared Function SetWindowPos(ByVal hWnd As IntPtr, _

     ByVal hWndInsertAfter As IntPtr, _

     ByVal X As Integer, _

     ByVal Y As Integer, _

     ByVal cx As Integer, _

     ByVal cy As Integer, _

     ByVal uFlags As UInteger) As Boolean

    Private Shared Function GetDeviceUniqueID(ByVal appData As Byte(), _

                          ByVal cbApplictionData As Integer, _

                          ByVal dwDeviceIDVersion As Integer, _

                          ByVal deviceIDOutput As Byte(), _

    ByVal lpDirectoryName As String, _

  (ByVal lpDirectoryName As String, _

Declare Function GetKeyState Lib "coredll.dll" (ByVal nVirtKey As [VK]) As Short

Declare Function GetModuleFileNameEx Lib "coredll.dll" (ByVal hProcess As IntPtr, ByVal hModule As IntPtr, ByVal lpFileName As System.Text.StringBuilder, ByVal nSize As Int32) As Int32

Friend Shared Function GetModuleHandleEx(ByVal dwFlags As UInt32, ByVal lpModuleName As String, ByRef phModule As IntPtr) As Boolean

Declare Function GetModuleFileNameEx Lib "coredll.dll" (ByVal hProcess As IntPtr, ByVal hModule As IntPtr, ByVal lpFileName As System.Text.StringBuilder, ByVal nSize As Int32) As Int32

    (ByVal hModule As Long, ByVal lpProcName As String) As Long

    Declare Function GetSystemInfo Lib "coredll.dll" (ByVal lpSystemInfo AS SYSTEM_INFO)

Private Shared Function GetWindowDC(ByVal hWnd As HandleRef) As IntPtr

Declare Function GetWindowDC Lib "coredll.dll" (ByVal hWnd As HandleRef) As IntPtr

    Private Shared Function GetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer) As System.UInt32

Declare Sub keybd_event Lib "coredll.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)

    Public Shared Function MessageBoxW(ByVal hWnd As Integer, _

    ByVal txt As String, ByVal caption As String, _

    ByVal Typ As Integer) As Integer

<DllImport("coredll.dll")> Shared Function OpenClipboard(ByVal hWndNewOwner As Integer) As Boolean

        ByVal szSound As String, _

        ByVal hModule As IntPtr, _

        ByVal flags As Integer) As Integer

        ByVal szSound() As Byte, _

        ByVal hModule As IntPtr, _

        ByVal flags As Integer) As Integer

Private Declare Function PlaySound Lib "coredll" Alias "PlaySoundW" (ByVal szSound As String, ByVal hModule As IntPtr, ByVal flags As PlaySoundFlags) As Boolean

Private Declare Function PlaySound Lib "coredll" (ByVal szSound As Byte(), ByVal hModule As IntPtr, ByVal flags As PlaySoundFlags) As Boolean

      ByVal szSound As String, _

      ByVal hModule As IntPtr, _

      ByVal flags As Integer) As Integer

        Public Shared Sub Play(ByVal fileName As String)

        [MarshalAs(UnmanagedType.ByValArray, SizeConst = RAS_MaxEntryName + 1)]

        [MarshalAs(UnmanagedType.ByValTStr, SizeConst = RAS_MaxDeviceType + 1)]

        [MarshalAs(UnmanagedType.ByValTStr, SizeConst = RAS_MaxDeviceName + 1)]

   Declare Function RegFlushKey Lib "CoreDll.dll" (ByVal hkey As IntPtr) As UInt32

   Declare Function RegFlushKey Lib "coredll" (ByVal hkey As IntPtr) As UInt32

Declare Function SendMessage Lib "coredll.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As IntPtr

Declare Function SetCapture Lib "coredll.dll" (ByVal hWnd As IntPtr) As IntPtr

<DllImport("coredll.dll")> Shared Function SetClipboardData(ByVal uFormat As Integer, ByVal hMem As IntPtr) As Integer

    <DllImport("coredll.dll")> Shared Function OpenClipboard(ByVal hWndNewOwner As Integer) As Boolean

    <DllImport("coredll.dll")> Shared Function SetClipboardData(ByVal uFormat As Integer, ByVal hMem As IntPtr) As Integer

    Private Sub WriteToClipboard(ByVal text As String)

    Private Shared Function SetDevicePower(ByVal pvDevice As String, ByVal dwDeviceFlags As Integer, ByVal DeviceState As DevicePowerState) As Integer

Private Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As Boolean

Public Shared Function SetSysColors(ByVal cElements As Integer, ByRef lpaElements As Integer(), ByRef lpaRgbValues As Integer()) As Integer

    ByVal psState As String, _

    ByVal StateFlags As Integer, _

    ByVal Options As Integer) As Integer

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Private Shared Function SetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer

Private Shared Function GetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer) As Integer

    Private Function SetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer

    Private Function GetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer) As Integer

    Public Sub SetButtonStyle(ByVal ctrl As Button)

Private Shared Function SetWindowPos(ByVal hWnd As IntPtr, _

     ByVal hWndInsertAfter As IntPtr, _

     ByVal X As Integer, _

     ByVal Y As Integer, _

     ByVal cx As Integer, _

     ByVal cy As Integer, _

     ByVal uFlags As UInteger) As Boolean

Private Declare Function SHCreateShortcut% Lib "coredll" (ByVal szShortcut As System.Text.StringBuilder, ByVal szTarget As System.Text.StringBuilder)!!!!User-Defined Types:

Declare Function ShowWindow Lib "coredll.dll" (ByRef hWnd As IntPtr, ByVal nCmdShow As Integer) As Boolean

Declare Sub SignalStarted Lib "coredll.dll" (ByVal dw As UInt32)

Declare Function SipSetCurrentIM Lib "coredll.dll" (ByVal clsid As Byte()) As Boolean

Declare Function SipShowIM Lib "coredll.dll" (ByVal dwFlag As Short) As Short

Declare Function TerminateProcess Lib "coredll.dll" (ByVal processIdOrHandle As IntPtr, ByVal exitCode As IntPtr) As Integer

Declare Function WaitForMultipleObjects Lib "coredll.dll" (ByVal nCount As Integer, ByVal lpHandles() As IntPtr, ByVal fWaitAll As Boolean, ByVal dwMilliseconds As Integer) As Integer

Public Function WaitForSingleObject(ByVal handle As IntPtr, ByVal milliseconds As Integer) As Integer