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

Declare Unicode Function LoadTypeLib Lib "oleaut32.dll" (ByVal szFile As String, ByRef TPpTypeLib As System.Runtime.InteropServices.ComTypes.ITypeLib) As Integer

Declare Unicode Function RegisterTypeLib Lib "oleaut32.dll" (ByVal ptlib As System.Runtime.InteropServices.ComTypes.ITypeLib, ByVal szFullPath As String, ByVal szHelpDir As String) As Integer

Declare Function RegisterTypeLib Lib "oleaut32.dll" (ByVal pTLB As Object, szFullPath As Byte, szHelpFile As Byte) As Long

Declare Unicode Function UnRegisterTypeLib Lib "oleaut32.dll" (ByRef LibID As System.Guid, ByVal nVerMajor As Short, ByVal nVerMinor As Short, ByVal lCID As Integer, ByVal tSysKind As System.Runtime.InteropServices.ComTypes.SYSKIND) As Integer

Declare Function UnRegisterTypeLib Lib "oleaut32.dll" (LibID As tGUID, ByVal nVerMajor As Integer, ByVal nVerMinor As Integer, ByVal lCID As Long, ByVal tSysKind As eSYSKIND) As Long

    Private Declare Unicode Function LoadTypeLib Lib "oleaut32.dll" (ByVal TLpszModule As String, ByRef TPpTypeLib As ComTypes.ITypeLib2) As Integer

    Private Declare Unicode Function RegisterTypeLib Lib "oleaut32.dll" (ByVal ptlib As ComTypes.ITypeLib2, ByVal szFullPath As String, ByVal szHelpDir As String) As Integer

    Private Declare Unicode Function UnRegisterTypeLib Lib "oleaut32.dll" (ByRef LibID As System.Guid, ByVal nVerMajor As Short, ByVal nVerMinor As Short, ByVal lCID As Integer, ByVal tSysKind As ComTypes.SYSKIND) As Integer

    Public Function RegisterTLib(ByVal strFile As String, ByVal bRegister As Boolean) As Boolean

Declare Function VarBstrFromDisp Lib "oleaut32.dll" (Byval Disp as IntPtr, Byval lcid As Integer, Byref pbstrOut as String) As Integer

Public Shared Sub memset(<[In](), Out()> ByVal dest As IntPtr, _

              <[In]()> ByVal c As Integer, _

              <[In]()> ByVal count As UInteger)

Declare Function HidD_GetFeature Lib "hid.dll" (ByVal HidDeviceObject As SafeFileHandle, out lpReportBuffer As Byte, ReportBufferLength As Int32) As Boolean

Public Shared Function HidD_GetFeature(hidDeviceObject As SafeFileHandle, ByVal reportBuffer As Byte(), ByVal reportBufferLength As UInt32) As Boolean

For VB - Must include "Imports Microsoft.Win32.SafeHandles". The reportBuffer parameter must be ByVal. The call will fail with windows system error 23 if it is ByRef.

        ByVal HidDeviceObject As SafeFileHandle, _

         ByVal Buffer As System.Text.StringBuilder, _

         ByVal BufferLength As Int32) As Boolean

    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

Private Shared Function HttpInitialize(ByVal Version As HTTPAPI_VERSION, ByVal Flags As UInteger, ByVal pReserved As IntPtr) As UInteger

Declare Function HttpSetServiceConfiguration Lib "httpapi.dll" (ByVal mustbezero As IntPtr, ByVal configID As Integer, ByVal configInfo As HTTP_SERVICE_CONFIG_URLACL_SET, ByVal configInfoLength As Integer, ByVal mustBeZero2 As IntPtr) As Integer

    Declare Function PowerGetActiveScheme Lib "powrprof.dll" (ByVal UserRootPowerKey As IntPtr, ByRef ActivePolicyGuid As IntPtr) As Integer

Declare Function SetSuspendState Lib "powrprof.dll" (ByVal Hibernate As Boolean, ByVal ForceCritical As Boolean, ByVal DisableWakeEvent As Boolean) As Boolean

        Private Declare Function SetSuspendState Lib "powrprof.dll" (ByVal Hibernate As Boolean, ByVal ForceCritical As Boolean, _

        ByVal DisableWakeEvent As Boolean) As Boolean

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Public Shared Function SetSuspendState(ByVal state As System.Windows.Forms.PowerState, ByVal force As Boolean, ByVal disableWakeEvent As Boolean) As Boolean

Declare Function GdipCreateBitmapFromGdiDib Lib "GdiPlus.dll" (ByRef GdiBitmapInfo As BITMAPINFO, ByVal GdiBitmapData As Long, ByRef bitmap As Long) As Status

private declare function GdipEmfToWmfBits lib "gdiplus.dll"(ByVal hEmf as IntPtr, _

    ByVal bufferSize as UInteger, ByVal buffer() as byte, ByVal mappingMode as Integer, _

    ByVal flags as EmfToWmfBitsFlags) as UInteger

Public Shared Function SQLConfigDataSourceW(ByVal hwndParent As IntPtr, ByVal fRequest As UShort, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Boolean

Private Shared Function SQLConfigDataSourceW(ByVal hwndParent As IntPtr, ByVal fRequest As RequestFlags, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Boolean

Public Shared Function SQLInstallerError(ByVal iError As Integer, ByRef pfErrorCode As Integer, ByVal lpszErrorMsg As StringBuilder, ByVal cbErrorMsgMax As Integer, ByRef pcbErrorMsg As Integer) As SQL_RETURN_CODE

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