<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=34)> _

    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=34)> _

    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=34)> _

    ByVal storeProvider As IntPtr, _

    ByVal prevCertContext As IntPtr) As IntPtr

    ByVal pCertContext As IntPtr _

    ByVal pCertContext As Long, _

    ByVal dwType As Long, _

    ByVal dwFlags As Long, _

    ByVal pszNameString As Long, _

    ByVal cchNameString As Long _

    ByVal hCryptProv As IntPtr, _

    ByVal storename As String) As IntPtr

Public Shared Function CryptAcquireCertificatePrivateKey(<[In]> ByVal pCert As IntPtr, <[In]> ByVal dwFlags As UInt32, <[In]> ByVal pvReserved As IntPtr, <[In], Out> ByRef phCryptProv As IntPtr, <[In], Out> ByRef pdwKeySpec As UInt32, <[In], Out> ByRef pfCallerFreeProv As Boolean) As Boolean

    ByVal szDataDescr As String, _

    ByVal pvReseved As IntPtr, _

    ByVal dwFlags As Integer, _

     ByVal szDataDescr As StringBuilder, _

     ByVal pvReserved As IntPtr, _

     ByVal dwFlags As Integer, _

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

    ByVal dwFlags As Int32) As IntPtr

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        [MarshalAs(UnmanagedType.ByValArray)] public SID_AND_ATTRIBUTES[] Groups;

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 EnumDesktopsDelegate(ByVal desktop As String, ByVal lParam As IntPtr) As Boolean

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 EnumObjectsProc(ByVal lpLogObject As IntPtr, ByVal lParam As IntPtr) As Integer

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

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

Private Delegate Function HookProc(ByVal code As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer

Private Delegate Function LowLevelKeyboardProc(ByVal nCode As Integer, ByVal wParam As WindowsMessages, <[In]> ByVal lParam As KBDLLHOOKSTRUCT) As Integer

Private Delegate Function LowLevelMouseProc(ByVal code As Integer, ByVal wParam As WindowsMessages, <[In]> ByVal lParam As MSLLHOOKSTRUCT) As IntPtr

Private Delegate Sub MsgBoxCallback(ByVal lpHelpInfo As HELPINFO)

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

''' <param name="completionArg">ByVal completionArg As IntPtr</param>

''' <param name="timerLowValue">ByVal timerLowValue As UInt32</param>

''' <param name="timerHighValue">ByVal timerHighValue As UInt32</param>

Private Delegate Sub TimerAPCProc(ByVal completionArg As IntPtr, ByVal timerLowValue As UInt32, ByVal timerHighValue As UInt32)

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

Delegate Function WndProc (ByVal hWnd As IntPtr, ByVal msg As Integer, _

     ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr

Private Delegate Function WndProc(ByVal hWnd As IntPtr, ByVal msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr

    ByVal ClassIndex As Integer, _

    Optional ByVal Flags As Integer = &H0) As Integer

    ByVal dnDevNode As Integer, _

    ByVal samDesired As Integer, _

    ByVal ulHardwareProfile As Integer, _

    ByVal Disposition As Integer, _

    ByVal phkDevice As Integer, _

    ByVal ulFlags As Integer) As Integer

  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

    ByVal FeatureEntry As INTERNETFEATURELIST, ByVal dwFlags As Long, _

    ByVal fEnable As Long) As Long

        ByVal pBC As IntPtr, _

        ByVal pwzUrl As String, _

        <MarshalAs(UnmanagedType.LPArray, ArraySubType:=UnmanagedType.I1, SizeParamIndex:=3)> ByVal _

        ByVal cbSize As Integer, _

        ByVal pwzMimeProposed As String, _

        ByVal dwMimeFlags As Integer, _

        ByVal dwReserved As Integer) As Integer

        ByVal pbc As Long, _

        ByVal pwzUrl As String, _

        ByVal pwzMimeProposed As String, _

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)

Public Declare Function lstrlenW Lib "kernel32.dll" (ByVal lpString As Long) As Long

                CopyMemory Buffer(0), ByVal lpwString, nLen

    Public Shared Function getMimeFromFile(ByVal file As String) As String

Public Declare Function URLDownloadToFileA Lib "urlmon" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

     ByVal dwOption As Integer, _

     ByVal pBuffer As StringBuilder, _

     ByVal dwBufferLength As Integer, _

     ByVal dwReserved As Integer _

Private Shared Function DestroyPropertySheetPage(ByVal hPage As IntPtr) As Integer

    Public Shared Function GetScrollPos(ByVal hWnd As IntPtr, ByVal nBar As Integer) As Integer

    Private Shared Function SetScrollPos(ByVal hWnd As IntPtr, ByVal nBar As Integer, ByVal nPos As Integer, ByVal bRedraw As Boolean) As Integer

        Set(ByVal value As Integer)

        Set(ByVal value As Integer)

Declare Function ImageList_Add Lib "comctl32.dll" (ByVal cx As Integer, ByVal cy As Integer, ByVal flags As uint, ByVal cInitial as Integer, ByVal cGrow as Integer) As IntPtr

Declare Function ImageList_SetIconSize Lib "comctl32.dll" (ByVal hImageList As IntPtr, ByVal cx As Integer, ByVal cy As Integer) As Boolean

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