ByVal lpszUrlName As IntPtr) As Boolean

    ByVal GroupId As Long, _

    ByVal dwFlags As Int32, _

    ByVal lpReserved As IntPtr) As Boolean

    <MarshalAs(UnmanagedType.LPStr)> ByVal lpszUrlSearchPattern As String, _

     ByVal lpFirstCacheEntryInfo As IntPtr, _

    ByVal dwFlags As Int32, _

    ByVal dwFilter As Integer, _

    ByVal lpSearchCondition As IntPtr, _

    ByVal dwSearchCondition As Int32, _

    ByVal lpReserved As IntPtr) As IntPtr

        ByVal hFind As IntPtr, _

        ByVal lpNextCacheEntryInfo As IntPtr, _

    ByVal hFind As IntPtr, _

    ByVal lpReserved As IntPtr) As Boolean

(ByVal hFtpSession As IntPtr, _

<MarshalAs(UnmanagedType.Bool)> ByVal fExpectResponse As Boolean, _

ByVal dwFlags As Integer, _

ByVal lpszCommand As String, _

ByVal dwContext As IntPtr, _

ByVal phFtpCommand As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean

  Private Shared Function FtpCreateDirectory(ByVal hConnect As IntPtr, ByVal lpszDirectory As String) As Boolean

   (ByVal hConnect As IntPtr, ByVal fileName As String) _

   (ByVal hConnect As IntPtr, ByVal searchFile As String, _

   ByRef findFileData As WIN32_FIND_DATA, ByVal flags As Integer, _

   ByVal context As IntPtr) As IntPtr

   (ByVal hConnect As IntPtr, ByVal directory As StringBuilder, ByRef bufferLength As Integer) _

Declare Function FtpGetFile Lib "wininet.dll" (ByVal hConnect As IntPtr, _

   ByVal remoteFile As String, ByVal newFile As String, _

   <MarshalAs(UnmanagedType.Bool)> ByVal failIfExists As Boolean, _

   ByVal flagsAndAttributes As Integer, ByVal flags As Integer, _

   ByVal context As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean

Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As IntPtr, ByVal lpszLocalFile As String, ByVal lpszRemoteFile As String, ByVal dwFlags As Integer, ByVal dwContext As Integer) As Boolean

                (ByVal hConnect As Integer, ByVal lpszExisting As String, _

                ByVal lpszNew As String) As Boolean

Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hConnect As IntPtr, ByVal lpszDirectory As String) As Boolean

Public Declare Function HttpQueryInfo Lib "wininet.dll" Alias "HttpQueryInfoA" (ByVal hHttpRequest As Integer, ByVal lInfoLevel As Integer, ByVal sBuffer As String, ByRef lBufferLength As Integer, ByRef lIndex As Integer) As Integer

Public Declare Function InternetAttemptConnect Lib "wininet" (Optional ByVal dwReserved As Long = 0) As Long

  Private Declare Function InternetAttemptConnect Lib "wininet" (Optional ByVal dwReserved As Integer = 0) As Integer

Declare Function InternetCheckConnection Lib "wininet.dll" (ByVal lpszUrl As String, ByVal dwFlags As Integer, ByVal dwReserved As Integer) As Boolean

    ByVal hInet As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean

    ByVal hInternetSession As System.IntPtr,

    ByVal sServerName As String,

    ByVal nServerPort As Integer,

    ByVal sUsername As String,

    ByVal sPassword As String,

    ByVal lService As Int32,

    ByVal lFlags As Int32,

    ByVal lContext As System.IntPtr) As System.IntPtr

Declare Function InternetCrackUrl Lib "wininet.dll" (ByVal lpszUrl As String, ByVal dwUrlLength As Integer, ByVal dwFlags As Integer, ByRef lpUrlComponents As URL_COMPONENTS) As <MarshalAs(UnmanagedType.Bool)> Boolean

   (ByVal hFind As IntPtr, ByRef findFileData As WIN32_FIND_DATA) _

  (ByRef lpdwFlags As Int32, ByVal dwReserved As Int32) As Boolean

Declare Function InternetGetCookieEx Lib "wininet.dll" Alias "InternetGetCookieExA" (ByVal pchURL As String, ByVal pchCookieName As String, _

    ByVal pchCookieData As System.Text.StringBuilder, ByRef pcchCookieData As Integer, ByVal flags As Integer, ByVal reserved As Integer) As _

Declare Function InternetGetCookieEx Lib "wininet.dll" Alias "InternetGetCookieExA" (ByVal pchURL As String, ByVal pchCookieName As String, _

    ByVal pchCookieData As System.Text.StringBuilder, ByRef pcchCookieData As Integer, ByVal flags As Integer, ByVal reserved As Integer) As _

   (ByRef errorCode As Integer, ByVal buffer As String, ByRef bufferLength As Integer) _

    ByVal sAgent As String, _

    ByVal lAccessType As Int32, _

    ByVal sProxyName As String, _

    ByVal sProxyBypass As String, _

    ByVal lFlags As Integer) As Int32

<DllImport("wininet.dll", SetLastError:=True)> Shared Function InternetQueryOption(ByVal hInternet As IntPtr, ByVal dwOption As UInteger, ByVal  lpBuffer() As Char, ByRef lpdwBufferLength As Integer) As Boolean

    Shared Function PrivacySetZonePreference( ByVal dwZone As Integer, ByVal dwType As Integer, ByVal dwTemplate As Integer, <MarshalAs(UnmanagedType.LPWStr)> ByVal lpszPreference As StringBuilder) As Integer

    Private Sub cmdGetPolicy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGetPolicy.Click

    Shared Function PrivacySetZonePreference( ByVal dwZone As Integer, ByVal dwType As Integer, ByVal dwTemplate As Integer, <MarshalAs(UnmanagedType.LPWStr)> ByVal lpszPreference As StringBuilder) As Integer

    Private Sub cmdSetPolicy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSetPolicy.Click

Private Declare Function ActivateActCtx Lib "Kernel32" (ByVal hActCtx As IntPtr, _

                    <Out()> ByVal lpCookie As IntPtr) As Boolean

Declare Function AddConsole Lib "kernel32" (ByVal Source As String, ByVal Target As String, ByVal ExeName As String) As Boolean

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 128)]

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

    Public Shared Function BeginUpdateResource(ByVal pFileName As String, _

    <MarshalAs(UnmanagedType.Bool)> ByVal bDeleteExistingResources As Boolean) As IntPtr

(ByVal hProcess As Long, ByVal fResult As Boolean) As Boolean

    (ByVal hProcess As Long, ByVal fResult As Boolean) As Boolean

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Public Shared Function CloseHandle(ByVal hObject As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean

Declare Auto Function CloseHandle Lib "kernel32.dll" (ByVal hObject As IntPtr) As Boolean

Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer

    Public Declare Unicode Function CompareStringEx Lib "kernel32" (ByVal strLocaleName As String, ByVal dwComparationFlags As EComparationFlags, ByVal str1 As String, ByVal iLength1 As Int32, ByVal str2 As String, ByVal iLength2 As Int32, ByVal pVersionInformation As IntPtr, ByVal pReserved As IntPtr, ByVal lParam As IntPtr) As EComparationResult

        [MarshalAs(UnmanagedType.ByValArray, SizeConst = 16)]

    Public Sub New(ByVal x As Short, ByVal y As Short)

Private Declare Auto Function CopyFileEx Lib "kernel32.dll" (ByVal lpExistingFileName As String, _

     ByVal lpNewFileName As String, ByVal lpProgressRoutine As CopyProgressRoutine, _

     ByVal lpData As IntPtr, ByRef pbCancel As Boolean, _

     ByVal dwCopyFlags As CopyFileFlags) As <MarshalAs(UnmanagedType.Bool)> Boolean

    Private Declare Auto Function CopyFileEx Lib "kernel32.dll" (ByVal lpExistingFileName As String, _

        ByVal lpNewFileName As String, ByVal lpProgressRoutine As CopyProgressRoutine, _

        ByVal lpData As IntPtr, ByRef pbCancel As Boolean, _

        ByVal dwCopyFlags As CopyFileFlags) As <MarshalAs(UnmanagedType.Bool)> Boolean

    Private Delegate Function CopyProgressRoutine(ByVal TotalFileSize As Long, _

        ByVal TotalBytesTransferred As Long, ByVal StreamSize As Long, ByVal StreamBytesTransferred As Long, _

        ByVal dwStreamNumber As UInteger, ByVal dwCallbackReason As CopyProgressCallbackReason, _

        ByVal hSourceFile As IntPtr, ByVal hDestinationFile As IntPtr, ByVal lpData As IntPtr) As CopyProgressResult

    Private Function GetFilenameFromPath(ByVal filePath As String, _

                Optional ByVal errMsg As String = "") As String

    Public Sub New(ByVal _sourcePath As String, ByVal _destPath As String, ByVal _overWrite As Boolean)

    Public Sub CopyEx(ByVal _sourcePath As String, ByVal _destPath As String, ByVal _overWrite As Boolean)

    Private Function CopyProgressHandler(ByVal total As Long, ByVal transferred As Long, ByVal streamSize As Long, ByVal StreamByteTrans As Long, ByVal dwStreamNumber As UInteger, ByVal reason As CopyProgressCallbackReason, _

     ByVal hSourceFile As IntPtr, ByVal hDestinationFile As IntPtr, ByVal lpData As IntPtr) As CopyProgressResult

Private Declare Auto Function CopyFileEx Lib "kernel32.dll" (ByVal lpExistingFileName As String, _

     ByVal lpNewFileName As String, ByVal lpProgressRoutine As CopyProgressRoutine, _

     ByVal lpData As IntPtr, ByRef pbCancel As Boolean, _

     ByVal dwCopyFlags As CopyFileFlags) As <MarshalAs(UnmanagedType.Bool)> Boolean

    Private Declare Auto Function CopyFileEx Lib "kernel32.dll" (ByVal lpExistingFileName As String, _

        ByVal lpNewFileName As String, ByVal lpProgressRoutine As CopyProgressRoutine, _

        ByVal lpData As IntPtr, ByRef pbCancel As Boolean, _

        ByVal dwCopyFlags As CopyFileFlags) As <MarshalAs(UnmanagedType.Bool)> Boolean

    Private Delegate Function CopyProgressRoutine(ByVal TotalFileSize As Long, _

        ByVal TotalBytesTransferred As Long, ByVal StreamSize As Long, ByVal StreamBytesTransferred As Long, _

        ByVal dwStreamNumber As UInteger, ByVal dwCallbackReason As CopyProgressCallbackReason, _

        ByVal hSourceFile As IntPtr, ByVal hDestinationFile As IntPtr, ByVal lpData As IntPtr) As CopyProgressResult

    Private Function GetFilenameFromPath(ByVal filePath As String, _

                Optional ByVal errMsg As String = "") As String

    Public Sub New(ByVal _sourcePath As String, ByVal _destPath As String, ByVal _overWrite As Boolean)

    Public Sub CopyEx(ByVal _sourcePath As String, ByVal _destPath As String, ByVal _overWrite As Boolean)

    Private Function CopyProgressHandler(ByVal total As Long, ByVal transferred As Long, ByVal streamSize As Long, ByVal StreamByteTrans As Long, ByVal dwStreamNumber As UInteger, ByVal reason As CopyProgressCallbackReason, _

     ByVal hSourceFile As IntPtr, ByVal hDestinationFile As IntPtr, ByVal lpData As IntPtr) As CopyProgressResult

    ByVal lpEventAttributes As IntPtr, _

    ByVal bManualReset As Boolean, _

    ByVal bInitialState As Boolean, _

    ByVal lpName As String) As IntPtr

Private Shared Function CreateHardLink(ByVal lpFileName As String, ByVal lpExistingFileName As String, ByVal lpSecurityAttributes As IntPtr) As Boolean

(ByVal lpName As String, _

  ByVal nMaxMessageSize As UInt32, _

  ByVal lReadTimeoutAs As UInt32, _

  ByVal lpSecurityAttributes As IntPtr _

    Public Function CreateMutex(ByVal lpMutexAttributes As IntPtr, _

    ByVal bInitialOwner As Boolean, _

    ByVal lpName As String) As IntPtr

Function CreatePipe Lib "kernel32" (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As Any, ByVal nSize As Long) As Long

Private Shared Function CreateSymbolicLink(ByVal lpSymlinkFileName As String, ByVal lpTargetFileName As String, ByVal dwFlags As SYMBOLIC_LINK_FLAG) As Boolean

Private Shared Function CreateToolhelp32Snapshot(ByVal dwFlags As SnapshotFlags, ByVal th32ProcessID As UInteger) As IntPtr

    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = MAX_PATH)]

    Shared Function DeviceIoControl(ByVal hDevice As IntPtr, ByVal dwIoControlCode As UInteger, ByVal lpInBuffer As IntPtr, ByVal nInBufferSize As UInteger, ByVal lpOutBuffer As IntPtr, ByVal nOutBufferSize As UInteger, ByRef lpBytesReturned As UInteger, ByVal lpOverlapped As IntPtr) As Boolean

    Public Shared Function DeviceIoControl(ByVal hDevice As IntPtr, _

    ByVal dwIoControlCode As UInteger, ByRef InBuffer As Long, _

    ByVal nInBufferSize As Integer, ByRef OutBuffer As Long, _

    ByVal nOutBufferSize As Integer, ByRef pBytesReturned As Integer, _

    ByVal hDevice As Microsoft.Win32.SafeHandles.SafeFileHandle, _

    ByVal IoControlCode As EIOControlCode, _

    <MarshalAs(UnmanagedType.AsAny), [In]()> ByVal InBuffer As Object, _

    ByVal nInBufferSize As UInteger, <MarshalAs(UnmanagedType.AsAny), _

    Out()> ByVal OutBuffer As Object, ByVal nOutBufferSize As UInteger, _

   Private Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Integer, ByVal dwIoControlCode As Integer, ByRef lpInBuffer As IntPtr,   ByVal nInBufferSize As Integer, ByRef lpOutBuffer As IntPtr, ByVal nOutBufferSize As Integer, ByRef lpBytesReturned As Integer, ByVal lpOverlapped As IntPtr) As Integer

   Private Declare Ansi Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Integer, ByVal dwIoControlCode As Integer, ByVal lpInBuffer As Integer, ByVal nInBufferSize As Integer, ByRef lpOutBuffer As Integer, ByVal nOutBufferSize As Integer, ByRef lpBytesReturned As Integer, ByVal lpOverlapped As Integer) As Integer

   Private Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Integer, ByVal dwIoControlCode As Integer, ByRef lpInBuffer As IntPtr, ByVal nInBufferSize As Integer, ByRef lpOutBuffer As DISK_GEOMETRY, ByVal nOutBufferSize As Integer, ByRef lpBytesReturned As Integer, ByVal lpOverlapped As IntPtr) As Integer

   Private Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Integer, ByVal dwIoControlCode As Integer, ByRef lpInBuffer As IntPtr, ByVal nInBufferSize As Integer, ByRef lpOutBuffer As GETVERSIONOUTPARAMS, ByVal nOutBufferSize As Integer, ByRef lpBytesReturned As Integer, ByVal lpOverlapped As IntPtr) As Integer

   Private Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Integer, ByVal dwIoControlCode As Integer, ByRef lpInBuffer As SENDCMDINPARAMS, ByVal nInBufferSize As Integer, ByRef lpOutBuffer As IntPtr, ByVal nOutBufferSize As Integer, ByRef lpBytesReturned As Integer, ByVal lpOverlapped As IntPtr) As Integer

   Private Declare Ansi Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, ByVal lpSecurityAttributes As IntPtr, ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As IntPtr) As Integer

   Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer

   Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As IDSECTOR, ByVal Source As Byte, ByVal Length As Long)

       <MarshalAs(UnmanagedType.ByValArray, SizeConst:=3)> _

       <MarshalAs(UnmanagedType.ByValArray, SizeConst:=2)> _

       <MarshalAs(UnmanagedType.ByValArray, SizeConst:=19)> _

       <MarshalAs(UnmanagedType.ByValArray, SizeConst:=7)> _

       <MarshalAs(UnmanagedType.ByValArray, SizeConst:=39)> _

       <MarshalAs(UnmanagedType.ByValArray, SizeConst:=127)> _

       <MarshalAs(UnmanagedType.ByValArray, SizeConst:=3)> _

       <MarshalAs(UnmanagedType.ByValArray, SizeConst:=4)> _

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

   Private Sub test(ByVal VerParam As GETVERSIONOUTPARAMS, ByVal hdrive As Integer)

   Private Function IsBitSet(ByVal iBitString As Byte, ByVal lBitNo As Integer) As Boolean

   Private Function SwapStringBytes(ByVal sIn As String) As String

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Public Shared Function EndUpdateResource(ByVal hUpdate As IntPtr, ByVal fDiscard As Boolean) As Boolean

Private Shared Function EnumResourceNames(ByVal hModule As IntPtr, ByVal lpszType As String, ByVal lpEnumFunc As EnumResNameProcDelegate, ByVal lParam As IntPtr) As Boolean

Private Shared Function EnumResourceNames(ByVal hModule As IntPtr, ByVal dwID As Integer, ByVal lpEnumFunc As EnumResNameProcDelegate, ByVal lParam As IntPtr) As Boolean

Private Delegate Function EnumResNameProcDelegate(ByVal hModule As IntPtr, ByVal lpszType As IntPtr, ByVal lpszName As IntPtr, ByVal lParam As IntPtr) As Boolean

    Private Delegate Function EnumResNameProcDelegate(ByVal hModule As IntPtr, ByVal lpszType As IntPtr, ByVal lpszName As IntPtr, ByVal lParam As IntPtr) As Boolean

    Private Shared Function EnumResourceNames(ByVal hModule As IntPtr, ByVal lpszType As String, ByVal lpEnumFunc As EnumResNameProcDelegate, ByVal lParam As IntPtr) As Boolean

    Private Shared Function EnumResourceNames(ByVal hModule As IntPtr, ByVal lpszType As Integer, ByVal lpEnumFunc As EnumResNameProcDelegate, ByVal lParam As IntPtr) As Integer

    Private Function EnumResNameProc(ByVal hModule As IntPtr, ByVal lpszType As IntPtr, ByVal lpszName As IntPtr, ByVal a As IntPtr) As Boolean

Private Shared Function EnumResourceTypes(ByVal hModule As IntPtr, ByVal lpEnumFunc As EnumResTypeProc, ByVal lParam As IntPtr) As Boolean

Public Declare Function ExpandEnvironmentStrings Lib "kernel32.dll" Alias "ExpandEnvironmentStringsW" (ByVal lpSrc As String, ByVal lpDst As String, ByVal nSize As Long) As Long

    Private Function FindFirstFileEx(ByVal lpFileName As String, ByVal fInfoLevelId As FINDEX_INFO_LEVELS, ByRef lpFindFileData As WIN32_FIND_DATA, ByVal fSearchOp As FINDEX_SEARCH_OPS, lpSearchFilter As Int32, dwAdditionalFlags As Integer) As Int32

    Public Shared Function FindFirstFileExW(ByVal lpFileName As String, ByVal fInfoLevelId As FINDEX_INFO_LEVELS, ByRef lpFindFileData As WIN32_FIND_DATAW, ByVal fSearchOp As FINDEX_SEARCH_OPS, lpSearchFilter As IntPtr, dwAdditionalFlags As Integer) As IntPtr

    Private Function FindFirstFileEx(ByVal lpFileName As String, ByVal fInfoLevelId As FINDEX_INFO_LEVELS, ByRef lpFindFileData As WIN32_FIND_DATA, ByVal fSearchOp As FINDEX_SEARCH_OPS, lpSearchFilter As Int32, dwAdditionalFlags As Integer) As Int32

    Public Shared Function FindFirstFileExW(ByVal lpFileName As String, ByVal fInfoLevelId As FINDEX_INFO_LEVELS, ByRef lpFindFileData As WIN32_FIND_DATAW, ByVal fSearchOp As FINDEX_SEARCH_OPS, lpSearchFilter As IntPtr, dwAdditionalFlags As Integer) As IntPtr

  Declare Function FindFirstVolumeW Lib "kernel32.dll" (ByVal lpszVolumeName As System.Text.StringBuilder, ByVal cchBufferLength As UInteger) As IntPtr

    Private Function FindNextFile(ByVal hFindFile As IntPtr, ByRef lpFindFileData As WIN32_FIND_DATA) As Boolean

Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As IntPtr, ByRef lpFindFileData As WIN32_FIND_DATA) As Boolean

Private Shared Function FindResourceEx(ByVal hModule As IntPtr, ByVal lpType As IntPtr, ByVal lpName As IntPtr, ByVal wLanguage As UShort) As IntPtr

<DllImport("kernel32.dll", SetLastError:=True)> Private Shared Function FlushFileBuffers(ByVal hFile As IntPtr) As Boolean