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

Declare Function AccessibleChildren Lib "oleacc.dll" (ByVal paccContainer As IAccessible, ByVal iChildStart As Integer, ByVal cChildren As Integer, <[Out]()> ByVal rgvarChildren() As Object, ByRef pcObtained As Integer) As UInteger

Function AccessibleChildren(ByVal paccContainer As IAccessible, ByVal iChildStart As Integer, ByVal cChildren As Integer, <[Out]()> ByVal rgvarChildren() As Object, ByRef pcObtained As Integer) As UInteger

    Shared Function AccessibleObjectFromPoint(ByVal pt As Point, <MarshalAs(UnmanagedType.Interface)> ByRef accObj As IAccessible, ByRef ChildID As Object) As IntPtr

    ByRef riid As Guid, _

    <MarshalAs(UnmanagedType.IUnknown)> ByRef ppvObject As Object) As Int32

    ByRef riid As Guid, _

    <MarshalAs(UnmanagedType.IUnknown)> ByRef ppvObject As Object) As Int32

Declare Function WindowFromAccessibleObject Lib "oleacc.dll" (ByVal pacc as IAccessible, ByRef phwnd as IntPtr) As Integer

                         ByRef pInterfaceGuid As Guid, _

                         ByRef pConnectionParameters As WLAN_CONNECTION_PARAMETERS, _

     Public Shared Function WlanEnumInterfaces(<[In]> ByVal hClientHandle As IntPtr, ByVal pReserved As IntPtr, ByRef ppInterfaceList As IntPtr) As UInteger

     Public Shared Function WlanGetAvailableNetworkList(ByVal hClientHandle As IntPtr, ByRef pInterfaceGuid As Guid, ByVal dwFlags As UInteger, ByVal pReserved As IntPtr, ByRef ppAvailableNetworkList As IntPtr) As UInteger

    Public Shared Function WlanOpenHandle(ByVal dwClientVersion As UInteger, ByVal pReserved As IntPtr, <Out> ByRef pdwNegotiatedVersion As UInteger, ByRef phClientHandle As IntPtr) As UInteger

    <[In]> ByRef pInterfaceGuid As Guid, ByVal OpCode As WLAN_INTF_OPCODE, _

    ByVal pReserved As IntPtr, <Out> ByRef pdwDataSize As UInteger, _

    ByRef ppData As IntPtr, ByVal pWlanOpcodeValueType As IntPtr) As UInteger

    Public Delegate Sub WLAN_NOTIFICATION_CALLBACK(ByRef notificationData As WLAN_NOTIFICATION_DATA, ByVal context As IntPtr)

                            <Out()> ByRef pdwPrevNotifSource As WLAN_NOTIFICATION_SOURCE) As UInteger

Public Shared Function WlanScan(ByVal hClientHandle As IntPtr, ByRef pInterfaceGuid As Guid, ByVal pDot11Ssid As IntPtr, ByVal pIeData As IntPtr, ByVal pReserved As IntPtr) As UInteger

Private Declare Auto Function SQLAllocHandle Lib "odbc32.dll" (ByVal HandleType As Short, ByVal InputHandle As IntPtr, ByRef OutputHandle As IntPtr) As Short

    ByRef statementHandle As IntPtr) As Short

IntPtr, <Out> ByRef StrLen_or_Ind As IntPtr) As Short

    ByVal ServerName As String, ByVal BufferLength1 As Short, ByRef NameLength1Ptr As Short, _

    ByVal Description As String, ByVal BufferLength2 As Short, ByRef NameLength2Ptr As Short) As Short

    <Runtime.InteropServices.Out()> ByRef pbcConnStrOut As Short, ByVal fDriverCompletion As Short) As Short

    ByRef strLen_or_Ind As Integer) As Short

    ByVal record As Short, ByVal sqlState As Text.StringBuilder, ByRef nativeError As Integer,

    ByVal errorMsg As Text.StringBuilder, ByVal errorMsgMax As Short, ByRef errorMsgLength As Short) As Short

    <[In]()> ByRef searchParams As BluetoothDeviceSearchParams, _

    ByRef deviceInfo As BluetoothDeviceInfo) As IntPtr

    <[In]()> ByRef findRadioParams As BluetoothFindRadioParams, _

    <Out()> ByRef hRadio As IntPtr) As IntPtr

    ByRef pbtdi As BluetoothDeviceInfo) As Integer

    ByRef pRadioInfo As BluetoothRadioInfo) As UInteger

        ByRef socketAddress As sockaddr, _

        ByRef addressLength As Integer) As IntPtr

        ByRef socketAddress As sockaddr_in, _

    ByRef ClassGuid As GUID, _

     ByRef results As CE_FIND_DATA) As Integer

Declare Function AVIFileCreateStream Lib "avifil32.dll" Alias "AVIFileCreateStreamA" (ByVal pfile As IntPtr, ByRef ppavi As IntPtr, ByRef psi As AVISTREAMINFO) As Integer

                       ByRef pfi As AVIFILEINFO,

   ByRef bih As BITMAPINFOHEADER) As Integer

                         ByRef lpFormat As BITMAPINFOHEADER,

                         ByRef cbFormat As Int32) As Integer

                           ByRef lpFormat As PCMWAVEFORMAT,

                           ByRef cbFormat As Int32) As Integer

    Public Shared Function AVIStreamReadFormat2(ByVal aviStream As IntPtr, ByVal lPos As Int32, ByRef lpFormat As BITMAPINFOHEADER, ByRef cbFormat As Int32) As Integer

                         ByRef lpFormat As BITMAPINFOHEADER,

                         ByRef cbFormat As Int32) As Integer

                           ByRef lpFormat As PCMWAVEFORMAT,

                           ByRef cbFormat As Int32) As Integer

    Public Shared Function AVIStreamReadFormat2(ByVal aviStream As IntPtr, ByVal lPos As Int32, ByRef lpFormat As BITMAPINFOHEADER, ByRef cbFormat As Int32) As Integer

Declare Function Mierda Lib "avifil32.dll" (ByRef LaPutaQueTePario As IntPtr, ByVal QueTeLaMetan As String) As Integer

    ByRef NewState As TOKEN_PRIVILEGES, _

    ByRef PreviousState As TOKEN_PRIVILEGES, _

    ByRef ReturnLengthInBytes As Integer _

    ByRef NewState As TOKEN_PRIVILEGES, _

    ByRef NewState As TOKEN_PRIVILEGES, _

    ByRef PreviousState As TOKEN_PRIVILEGES, _

    ByRef ReturnLength As IntPtr _

     ByRef lpLuid As LUID _

     ByRef TokenHandle As IntPtr _

       ByRef NewState As TOKEN_PRIVILEGES, _

       ByRef PreviousState As TOKEN_PRIVILEGES, _

       ByRef ReturnLength As IntPtr _

   ByRef pSid As IntPtr) As Boolean

    ByRef pExplicitAccess As EXPLICIT_ACCESS, _

    ByRef IsMember As Boolean _

Public Function ControlService(ByVal hService As IntPtr, ByVal dwControl As SERVICE_CONTROL, ByRef lpServiceStatus As SERVICE_STATUS) As Boolean

Declare Unicode Function ConvertSecurityDescriptorToStringSecurityDescriptor Lib "advapi32.dll" Alias "ConvertSecurityDescriptorToStringSecurityDescriptorW" (SD As IntPtr, SDRevision As Integer, SecurityInfo As SECURITY_INFORMATION, ByRef StringSD As IntPtr, StringSDLength As IntPtr) As Boolean

   ByRef ptrSid As IntPtr) As Boolean

Public Shared Function ByteArrayToStringSid(ByRef bArray As Byte()) As String

Public Shared Function ByteArrayToStringSid(ByRef bArray As Byte()) As String

    ByRef StringSid As IntPtr _

    ByRef lpProcessAttributes as SECURITY_ATTRIBUTES, _

    ByRef lpThreadAttributes as SECURITY_ATTRIBUTES, _

    ByRef lpStartupInfo As STARTUPINFO, _

    ByRef lpProcessInformation As PROCESS_INFORMATION) As Boolean

                           <[In]()> ByRef lpStartupInfo As StartupInfo, _

                           <Out()> ByRef lpProcessInformation As PROCESS_INFORMATION) As <MarshalAs(UnmanagedType.Bool)> Boolean

    Public Function CreateProcessWithLogonW(ByVal userName As String, ByVal domain As String, ByVal password As String, ByVal logonFlags As UInt32, ByVal applicationName As String, ByVal commandLine As String, ByVal creationFlags As UInt32, ByVal environment As UInt32, ByVal currentDirectory As String, ByRef startupInfo As StartupInfo, ByRef processInformation As ProcessInformation) As Boolean

    Public Function CreateProcessWithLogonW(ByVal userName As String, ByVal domain As String, ByVal password As String, ByVal logonFlags As UInt32, ByVal applicationName As String, ByVal commandLine As String, ByVal creationFlags As UInt32, ByVal environment As UInt32, ByVal currentDirectory As String, ByRef startupInfo As StartupInfo, ByRef processInformation As ProcessInformation) As Boolean

    Public Function GetExitCodeProcess(ByVal process As IntPtr, ByRef exitCode As UInt32) As Boolean

The 4th parameter from the end, TagBY, should - according to the API documention, be a ByRef parameter. Unfortunately, the call only works if the parameter is ByVal.

    ByRef cbSid As Integer _

Declare Function CryptAcquireContext Lib "advapi32.dll" (ByRef hProv As IntPtr, _

ByRef phHast As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean

ByVal flags As Integer, ByVal data As Byte(), ByRef dataLen As Integer) _

ByRef phKey As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean

ByVal data As Byte(), ByRef dataLen As Integer, ByVal bufferlen As Integer) _

Public Shared Function CryptGenKey(ByVal hProv As IntPtr, ByVal Algid As UInteger, ByVal dwFlags As UInteger, ByRef phKey As IntPtr) As Boolean

   <[In], Out> pbData() As Byte, ByRef dwDataLen As Integer, dwFlags As Integer) As Boolean

    ByRef lpThreadAttributes As SECURITY_ATTRIBUTES, _

    ByRef DuplicateTokenHandle As System.IntPtr) As Boolean