Public Shared Function DrawThemeBackgroundEx(hTheme As IntPtr, hdc As IntPtr, iPartId As Integer, iStateId As Integer, ByRef pRect As RECT, ByRef poptions As DTBGOPTS) As Int32

Public Shared Function DrawThemeBackgroundEx(hTheme As IntPtr, hdc As IntPtr, iPartId As Integer, iStateId As Integer, ByRef pRect As RECT, ByRef poptions As DTBGOPTS) As Int32

Public Shared Function DrawThemeEdge(hTheme As IntPtr, hdc As IntPtr, iPartId As Integer, iStateId As Integer, ByRef pDestRect As RECT, egde As UInteger, _

    flags As UInteger, ByRef pRect As RECT) As Int32

Public Shared Function DrawThemeEdge(hTheme As IntPtr, hdc As IntPtr, iPartId As Integer, iStateId As Integer, ByRef pDestRect As RECT, egde As UInteger, _

Public Shared Function DrawThemeIcon(ByVal hTheme As IntPtr, ByVal hdc As IntPtr, ByVal iPartId As Integer, ByVal iStateId As Integer, ByRef pRect As RECT, ByVal himl As IntPtr, _

Function DrawThemeParentBackground(ByVal hwnd As IntPtr, ByVal hdc As IntPtr, ByRef prc As RECT) As Integer

Public Shared Function DrawThemeTextEx(hTheme As IntPtr, hdc As IntPtr, iPartId As Integer, iStateId As Integer, text As [String], length As Integer, flags As DT, ByRef rect As RECT, ByRef poptions As DTTOPTS) As Int32

Public Shared Function DrawThemeTextEx(hTheme As IntPtr, hdc As IntPtr, iPartId As Integer, iStateId As Integer, text As [String], length As Integer, flags As UInt32, ByRef rect As RECT, ByRef poptions As DTBGOPTS) As Int32

Public Shared Function GetThemeBackgroundContentRect(hTheme As IntPtr, hdc As IntPtr, iPartId As Integer, iStateId As Integer, ByRef pBoundingRect As RECT, ByRef pContentRect As RECT) As Int32

Public Shared Function GetThemeBackgroundExtent(hTheme As IntPtr, hdc As IntPtr, iPartId As Integer, iStateId As Integer, ByRef pRect As RECT, ByRef pClipRect As RECT) As Int32

Public Shared Function GetThemeBackgroundRegion(hTheme As IntPtr, hdc As IntPtr, iPartId As Integer, iStateId As Integer, ByRef pRect As RECT, ByRef pRegion As IntPtr) As Int32

Public Shared Function GetThemeBool(hTheme As IntPtr, iPartId As Integer, iStateId As Integer, iPropId As Integer, ByRef pfVal As Integer) As Int32

                   ByRef pColor As COLORREF) As Integer

Public Shared Function GetThemeDocumentationProperty(stringThemeName As [String], stringPropertyName As [String], ByRef stringValue As StringBuilder, lengthValue As Integer) As Int32

Public Shared Function GetThemeEnumValue(hTheme As IntPtr, iPartId As Integer, iStateId As Integer, iPropId As Integer, ByRef piVal As Integer) As Int32

Public Shared Function GetThemeFont(hTheme As IntPtr, hdc As IntPtr, iPartId As Integer, iStateId As Integer, iPropId As Integer, ByRef pFont As LOGFONT) As Int32

Public Shared Function GetThemeIntList(hTheme As IntPtr, iPartId As Integer, iStateId As Integer, iPropId As Integer, ByRef pIntList As INTLIST) As Int32

Public Shared Function GetThemeMargins(hTheme As IntPtr, hdc As IntPtr, iPartId As Integer, iStateId As Integer, iPropId As Integer, ByRef pMargins As MARGINS) As Int32

Public Shared Function GetThemeMetric(hTheme As IntPtr, hDC As IntPtr, iPartId As Integer, iStateId As Integer, iPropId As Integer, ByRef piVal As Integer) As Int32

Public Declare Function GetThemePartSize Lib "uxtheme.dll" (ByVal hTheme As IntPtr, ByVal hdc As IntPtr, ByVal iPartId As Integer, ByVal iStateId As Integer, ByRef prc As Rectangle, ByVal eSize As THEMESIZE, ByRef psz As Size) As Integer

Public Shared Function GetThemePosition(hTheme As IntPtr, iPartId As Integer, iStateId As Integer, iPropId As Integer, ByRef pPoint As POINT) As Int32

Public Shared Function GetThemePropertyOrigin(hTheme As IntPtr, iPartId As Integer, iStateId As Integer, iPropId As Integer, ByRef pOrigin As PropertyOrigin) As Int32

Public Shared Function GetThemeRect(hTheme As IntPtr, iPartId As Integer, iStateId As Integer, iPropId As Integer, ByRef pRect As RECT) As Int32

Public Shared Function GetThemeString(hTheme As IntPtr, iPartId As Integer, iStateId As Integer, iPropId As Integer, ByRef themeString As StringBuilder, themeStringLength As Integer) As Int32

Public Shared Function GetThemeSysFont(hTheme As IntPtr, iFontId As Integer, ByRef plf As LOGFONT) As Int32

Public Shared Function GetThemeSysInt(hTheme As IntPtr, iIntId As Integer, ByRef piVal As Integer) As Int32

Public Shared Function GetThemeSysString(hTheme As IntPtr, iStringId As Integer, ByRef stringSys As StringBuilder, stringSysLength As Integer) As Int32

    ByVal textFlags As Integer, ByVal boundingRect As RECT, ByRef extentRect As RECT) As Integer

Public Shared Function GetThemeTextMetrics(hTheme As IntPtr, hdc As IntPtr, iPartId As Integer, iStateId As Integer, ByRef textMetric As TEXTMETRIC) As Int32

Public Shared Function HitTestThemeBackground(hTheme As IntPtr, hdc As IntPtr, iPartId As Integer, iStateId As Integer, dwOptions As UInt32, ByRef pRect As RECT, _

    hrgn As IntPtr, ptTest As POINT, ByRef code As HitTestThemeBackgroundCode) As Int32

Declare Function OpenThemeFile Lib "uxtheme.dll" (ByVal String pszFilename, ByVal String pszColor, ByVal String pszSize, ByRef IntPtr hThemeFile, ByVal Integer dwReserved) As Integer

Public Shared Function OpenThemeFile(pszFilename As String, pszColor As String, pszSize As String, ByRef hThemeFile As IntPtr, dwReserved As Integer) As Integer

Public Shared Sub SetWindowThemeAttribute(<[In]> hwnd As IntPtr, <[In]> eAttribute As WINDOWTHEMEATTRIBUTETYPE, <[In]> ByRef pvAttribute As WTA_OPTIONS, <[In]> cbAttribute As UInteger)

Private Shared Function iPAQSetBlueToothRadio(ByRef dwValue As Integer) As Boolean

  Declare Function iPAQSetWLANRadio Lib "ipaqutil.dll" (ByRef status As Integer) 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

   ByRef rclsid As Guid, pvReserved As IntPtr, _

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

Declare Function SysFreeString Lib "oleaut32.dll" (ByRef bstr as String) 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

    Private Declare Unicode Function LoadTypeLib Lib "oleaut32.dll" (ByVal TLpszModule As String, ByRef TPpTypeLib As ComTypes.ITypeLib2) 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

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

If you write a COM interface which will be used by Javascript or Vbscript, you really need this function. Automation variables are very difficult to manage and they are passed by reference (VT_BYREF) or as Dispatch (VT_DISPATCH) or as a number while you just need, e.g. a string.

Declare Function NtQueryInformationFile Lib "ntdll.dll" (ByVal fileHandle As IntPtr, ByRef IoStatusBlock As IO_STATUS_BLOCK, ByVal pInfoBlock As IntPtr, ByVal length As UInteger, ByVal fileInformation As FILE_INFORMATION_CLASS) As IntPtr

Declare Function NtSetTimerResolution Lib "ntdll.dll" (ByVal DesiredResolution as UInteger, ByVal SetResolution as Boolean, ByRef CurrentResolution as UInteger)

Public Declare Function RtlAdjustPrivilege Lib "ntdll.dll" (ByVal Privilege As Integer, ByVal bEnablePrivilege As Boolean, ByVal IsThreadPrivilege As Boolean, ByRef PreviousValue As Boolean) As IntPtr

Declare Function CreatePropertySheetPage Lib "comctl32" (ByRef PROPSHEETPAGE) As IntPtr

    Private Shared Sub DoReaderMode(ByRef prmi As READERMODEINFO)

    Private Shared Sub DoReaderMode(ByRef prmi As READERMODEINFO)

    Private Delegate Function ReaderScrollCallbackDelegate(ByRef prmi As READERMODEINFO, dx As Integer, dy As Integer) As Boolean

    Private Delegate Function TranslateDispatchCallbackDelegate(ByRef lpmsg As MSG) As Boolean

    Private Function TranslateDispatchCallback(ByRef lpmsg As MSG) As Boolean

    Private Function ReaderScrollCallback(ByRef prmi As READERMODEINFO, dx As Int32, dy As Int32) As Boolean

Private Shared Function ImageList_GetIconSize(himl As IntPtr, ByRef cx As Integer, ByRef cy As Integer) As Boolean

Declare Function InitCommonControlsEx Lib "comctl32.dll" (ByRef iccex as INITCOMMONCONTROLSEX ) As Boolean

Private Shared Function TaskDialogIndirect(<[In]> pTaskConfig As TASKDIALOGCONFIG, <Out> ByRef pnButton As Integer, <Out> ByRef pnRadioButton As Integer, <MarshalAs(UnmanagedType.Bool), Out> ByRef pfverificationFlagChecked As Boolean) As HRESULT

Private Shared Function TaskDialogIndirect(<[In]> pTaskConfig As TASKDIALOGCONFIG, <Out> ByRef pnButton As Integer, <Out> ByRef pnRadioButton As Integer, <MarshalAs(UnmanagedType.Bool), Out> ByRef pfverificationFlagChecked As Boolean) As HRESULT

    <Out> ByRef perceivedType As PerceivedType, _

    <Out> ByRef perceivedFlags As PerceivedFlags, _

Private Shared Function AssocQueryString(ByVal flags As UInteger, ByVal str As UInteger, ByVal pszAssoc As String, ByVal pszExtra As String, ByVal pszOut As Text.StringBuilder, ByRef pcchOut As UInteger) As UInteger

     ByRef pathLength As System.UInt32, _

     ByRef urlLength As System.UInt32, _

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 EnumFontExDelegate(ByRef lpelfe As ENUMLOGFONTEX, ByVal lpntme As IntPtr, ByVal FontType As Integer, ByVal lParam As Integer) As Integer

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

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

Private Delegate Function ReaderScrollCallbackDelegate(ByRef prmi As READERMODEINFO, dx As Integer, dy As Integer) As Boolean

Private Delegate Sub TimerEventHandler(ByVal id As UInt32, ByVal msg As UInt32, ByRef userCtx As UInt32, ByVal rsv1 As UInt32, ByVal rsv2 As UInt32)

Private Delegate Function TranslateDispatchCallbackDelegate(ByRef lpmsg As MSG) As Boolean