<[In]> ByRef iidResult As Guid, <MarshalAs(UnmanagedType.Interface), Out> ByRef _

                           ByRef lplpMessageFilter As IMessageFilter) As Integer

Private Declare Function CreateFileMoniker Lib "ole32.dll" (ByVal lpszPathName As String, ByRef ppmk As IMoniker) As Integer

                              <Out()> ByRef ppLkbyt As IlockBytes) _

    Declare Function CreateStreamOnHGlobal Lib "ole32" (ByVal hGlobal As IntPtr, ByVal fDeleteOnRelease As Boolean, ByRef ppstm As UCOMIStream) As Long

    <[In]()> ByRef FMTID As Guid, _

    ByRef ppUnk As Object, _

    ByRef ppUnk As Object, _

    <Out()> ByRef FMTID As Guid) As Integer

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)

Declare Function WinHttpGetIEProxyConfigForCurrentUser Lib "winhttp.dll" (ByRef pProxyConfig As WINHTTP_CURRENT_USER_IE_PROXY_CONFIG) As Boolean

Declare Function WinHttpOpenRequest Lib "winhttp.dll" (ByVal hConnect As IntPtr, ByVal pwszVerb As String, ByVal pwszObjectName As String, ByVal pwszVersion As String, ByVal pwszReferrer As String, ByRef ppwszAcceptTypes As Byte(), ByVal dwFlags As Integer) As IntPtr

Declare Function WinHttpOpenRequest Lib "winhttp.dll" (ByVal hConnect As IntPtr, ByVal pwszVerb As String, ByVal pwszObjectName As String, ByVal pwszVersion As String, ByVal pwszReferrer As String, ByRef ppwszAcceptTypes As Byte(), ByVal dwFlags As Integer) As IntPtr

Declare Function WinHttpQueryDataAvailable Lib "winhttp.dll" (ByVal hRequest As IntPtr, ByRef lpdwNumberOfBytesAvailable As Integer) As Boolean

Declare Function WinHttpQueryHeaders Lib "winhttp.dll" (ByVal hRequest As IntPtr, ByVal dwInfoLevel As Integer, ByVal pwszName As String, ByVal buffer As Byte(), ByRef lpdwBufferLength As Integer, ByRef lpdwIndex As Integer) As Boolean

Declare Function WinHttpQueryOption Lib "winhttp.dll" (ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As Byte(), ByRef lpdwBufferLength As Integer) As Boolean

Declare Function WinHttpReadData Lib "winhttp.dll" (ByVal hRequest As IntPtr, ByVal lpBuffer As Byte(), ByVal dwNumberOfBytesToRead As Integer, ByRef lpdwNumberOfBytesRead As Integer) As Boolean

Declare Function WinHttpWriteData Lib "winhttp.dll" (ByVal hRequest As IntPtr, ByVal lpBuffer As IntPtr, ByVal dwNumberOfBytesToWrite As UInteger, ByRef lpdwNumberOfBytesWritten As UInteger) As Boolean

    <Out()> ByRef SiteNameBuffer As IntPtr) As UInt32

Declare Function LsaQueryInformationPolicy Lib "Advapi32.dll" (ByVal PolicyHandle As IntPtr, ByVal InformationClass As UInteger, ByRef Buffer As IntPtr) As UInteger

Changed VB.NET Signature from "ByRef buffer" to "ByVal buffer". With ByRef you get a significant memory leak, with ByVal everything is fine.

        ByRef Buffer As IntPtr, _

        ByRef EntriesRead As Integer, _

        ByRef ResumeHandle As Integer) As Integer

    ByRef buffer As IntPtr) As Integer

Declare Unicode Function NetDfsGetInfo Lib "NETAPI32.DLL" (ByVal DfsEntryPath As String, ByVal ServerName As String, ByVal ShareName As String, ByVal Level As Integer, ByRef Buffer As IntPtr) As Integer

    ByRef bufptr As IntPtr, _

    ByRef entriesread As Integer, _

    ByRef totalentries As Integer, _

  Private Shared Function NetGetDCName(ByVal serverName As String, ByVal domainName As String, ByRef buffer As IntPtr) As NetApiStatus

    ByRef lpNameBuffer As IntPtr, _

    ByRef bufferType As NETSETUP_JOIN_STATUS) _

        ByRef lpNameBuffer As IntPtr, _

        ByRef bufferType As NETSETUP_JOIN_STATUS) _

    ByRef entriesRead As Integer, _

    ByRef Buffer As Long) As Integer

     ByRef OptionsSupported As NetSupportOption) _

    ByVal UncServerName As String, ByRef BufferPtr As IntPtr) As Integer

    Friend Shared Function NetScheduleJobAdd(ByVal Servername As String, ByVal Buffer As IntPtr, ByRef JobId As Integer) As Integer