Friend Shared Function CLSIDFromProgIDEx(ByVal lpszProgID As String) As Guid

  Friend Shared Function CLSIDFromProgIDEx(ByVal lpszProgID As String) As Guid

    (<[In](), MarshalAs(UnmanagedType.LPStruct)> ByVal rclsid As Guid, _

    ByVal dwClsContext As CLSCTX, _

    ByVal pServerInfo As IntPtr, _

    <[In](), MarshalAs(UnmanagedType.LPStruct)> ByVal riid As Guid) _

  Private Shared Function CoRegisterMessageFilter(ByVal lpMessageFilter As IMessageFilter,

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

    Public Shared Function CreateILockBytesOnHGlobal(ByVal hGlobal As IntPtr, _

                              ByVal fDeleteOnRelease As Boolean, _

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

    ByVal oszName As StringBuilder) As Integer

    (ByVal hwndOwner As IntPtr, _

    ByVal x As Int32, _

    ByVal y As Int32, _

    ByVal lpszCaption As String, _

    ByVal cObjects As Int32, _

    ByVal cPages As Int32, _

    ByVal pPageClsID As Int32, _

    ByVal lcid As Int32, _

    ByVal dwReserved As Int32, _

    ByVal pvReserved As IntPtr) As Integer

    (ByVal hwndOwner As IntPtr, _

    ByVal x As Int32, _

    ByVal y As Int32, _

    ByVal lpszCaption As String, _

    ByVal cObjects As Int32, _

    ByVal cPages As Int32, _

    ByVal pPageClsID As Int32, _

    ByVal lcid As Int32, _

    ByVal dwReserved As Int32, _

    ByVal pvReserved As IntPtr) As Integer

Public Shared Function OleSetClipboard(ByVal pDataObj As System.Runtime.InteropServices.ComTypes.IDataObject) As Int32

    <MarshalAs(UnmanagedType.LPWStr)> ByVal oszName As String, _

   Friend Function BitsToInteger(ByVal bits As BitArray) As Integer

    <DllImport("wer.dll", SetLastError:=True, CharSet:=CharSet.Unicode)> Private Shared Function WerAddExcludedApplication(ByVal pwzExeName As String, ByVal bAllUsers As Boolean) As Integer

Declare Function CloseThemeData Lib "uxtheme.dll" (ByVal hTheme As IntPtr) As Int32

Function CloseThemeData(ByVal hTheme As IntPtr) As Int32

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, _

      ByVal iImageIndex As Integer) As Int32

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

Public Shared Function EnableTheming(ByVal fEnable As Integer) As Integer

Declare Unicode Function GetCurrentThemeName Lib "uxtheme" (ByVal stringThemeName As StringBuilder, ByVal lengthThemeName As Integer, ByVal stringColorName As StringBuilder, ByVal lengthColorName As Integer, ByVal stringSizeName As StringBuilder, ByVal lengthSizeName As Integer) As Int32

Shared Function GetThemeColor(ByVal hTheme As IntPtr, _

                   ByVal iPartID As Integer, _

                   ByVal iStateId As Integer, _

                   ByVal iPropId As Integer, _

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

Declare Function GetThemeTextExtent Lib "uxtheme.dll" (ByVal hTheme As IntPtr, ByVal hdcAs IntPtr, _

    ByVal iPartId As Integer, ByVal iStateId As Integer, ByVal text As String, Byval textLength As Integer, _

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

Public Declare Function GetWindowTheme Lib "uxtheme.dll" (ByVal hWnd As IntPtr) As IntPtr

Function OpenThemeData( ByVal hwnd As IntPtr, ByVal pszClassList As String) As IntPtr

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

Shared Function SetSystemVisualStyle(ByVal pszFilename As String, ByVal pszColor As String, ByVal pszSize As String, ByVal dwReserved As Integer) As Integer

Declare Auto Sub SetThemeAppProperties Lib "uxtheme" (ByVal props As ThemeAppProperties)

Declare Function WinHttpAddRequestHeaders Lib "winhttp.dll" (ByVal hRequest As IntPtr, ByVal pwszHeaders As String, ByVal dwHeaderLength As Integer, ByVal dwModifiers As Integer) As Boolean

Declare Function WinHttpCloseHandle Lib "winhttp.dll" (ByVal hInternet As IntPtr) As Boolean

Declare Function WinHttpConnect Lib "winhttp.dll" (ByVal hSession As IntPtr, ByVal pswzServerName As String, ByVal nServerPort As Short, ByVal dwReserved 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 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 WinHttpReceiveResponse Lib "winhttp.dll" (ByVal hRequest As IntPtr, ByVal lpReserved As Integer) As Boolean

Declare Function WinHttpSendRequest Lib "winhttp.dll" (ByVal hRequest As IntPtr, ByVal pwszHeaders As String, ByVal dwHeadersLength As Integer, ByVal lpOptional As Byte(), ByVal dwOptionalLength As Integer, ByVal dwTotalLength As Integer, ByVal dwContext As IntPtr) As Boolean

Declare Function WinHttpSetOption Lib "winhttp.dll" (ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As Byte(), ByVal dwBufferLength As Integer) As Boolean

Declare Function WinHttpSetTimeouts Lib "winhttp.dll" (ByVal hInternet As IntPtr, ByVal dwResolveTimeout As Integer, ByVal dwConnectTimeout As Integer, ByVal dwSendTimeout As Integer, ByVal dwReceiveTimeout 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

    <MarshalAs(UnmanagedType.LPTStr)> ByVal ComputerName As String, _

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

    (ByVal buffer As IntPtr) As Long

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

Declare Function NetDfsAdd Lib "NETAPI32.DLL" (ByVal DfsEntryPath As String, ByVal ServerName As String, ByVal ShareName As String, ByVal Comment As String, ByVal Flags As Long) As Long

Declare Function NetDfsAdd Lib "NETAPI32.DLL" (<Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.LPWStr)> ByVal DfsEntryPath As String, <Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.LPWStr)> ByVal ServerName As String, <Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.LPWStr)> ByVal ShareName As String, <Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.LPWStr)> ByVal Comment As String, ByVal Flags As Uint32) As Long

        <MarshalAs(UnmanagedType.LPWStr)> ByVal DfsName As String, _

        ByVal Level As Integer, _

        ByVal PrefMaxLen As Integer, _

    <MarshalAs(UnmanagedType.LPWStr)> ByVal entryPath As String, _

    <MarshalAs(UnmanagedType.LPWStr)> ByVal serverName As String, _

    <MarshalAs(UnmanagedType.LPWStr)> ByVal shareName As String, _

    ByVal level 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

Public Function DFSInfo(ByVal DfsEntryPath)

    <MarshalAs(UnmanagedType.LPWStr)> ByVal Path As String, _

    <MarshalAs(UnmanagedType.LPWStr)> ByVal NewPath As String, _

    <MarshalAs(UnmanagedType.SysUInt)> ByVal Flags As Integer) As Integer

  ByVal DfsEntryPath As String, <Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.LPWStr)> _

  ByVal ServerName As String, <Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.LPWStr)> _

  ByVal ShareName As String) As Long

     ByVal servername As String, _

     ByVal fileid As Integer) As Integer

    ByVal servername As String, _

    ByVal basepath As String, _

    ByVal username As String, _

    ByVal level As Integer, _

    ByVal prefmaxlen As Integer, _

    ByVal resume_handle As IntPtr) As Integer

  Private Shared Function NetApiBufferFree(ByVal buffer As IntPtr) As NetApiStatus

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

    ByVal lpServer As String, _

        ByVal lpServer As String, _

        (ByVal lpBuffer As IntPtr) As NET_API_STATUS

        (Optional ByVal ComputerName As String = vbNullString) As NetGroupInformation

Public Declare Function NetGroupAdd Lib "netapi32.dll" (ServerName As Any ByVal level As Long, Buffer As GroupInfo1, ParmError As Long) As Long

        (ByVal lpServer As String, _

        ByVal lpDomain As String, _

        ByVal lpAccountOU As String, _

        ByVal lpAccount As String, _

        ByVal lpPassword As String, _

        ByVal fJoinOptions As Integer) As Integer

    (<MarshalAs(UnmanagedType.LPWStr)> ByVal servername As String, _

    <MarshalAs(UnmanagedType.LPWStr)> ByVal msgname As String, _

    <MarshalAs(UnmanagedType.LPWStr)> ByVal fromname As String, _

    <MarshalAs(UnmanagedType.LPWStr)> ByVal buf As String, _

    ByVal buflen As Integer) _

    ByVal level As Long, _

    ByVal ResumeHandle As Long, _

    ByVal EntriesRequested As Long, _

    ByVal prefMaxLen As Long, _

    ByVal level As Integer, _

    ByVal ResumeHandle As Integer, _

    ByVal EntriesRequested As Integer, _

    ByVal prefMaxLen As Integer, _

     ByVal UncServerName As String, _

     ByVal OptionsWanted As NetSupportOption, _

Function RemoteComputerSupports(ByVal ComputerName As String, ByVal Wanted 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

    (ByVal Servername As IntPtr, _

    ByVal Level As Integer, _

    ByVal PrefMaxLen As Integer, _

    ByVal serverType As Integer, _

    ByVal Domain As IntPtr, _

    ByVal ResumeHandle As IntPtr) As Integer