Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
                                    Alias "RegOpenKeyExA" _
                                    (ByVal hKey As Long, _
                                    ByVal lpSubKey As String, _
                                    ByVal ulOptions As Long, _
                                    ByVal samDesired As Long, _
                                    phkResult As Long) _
                                    As Long
 
Private Declare Function RegCloseKey Lib "advapi32.dll" _
                                    (ByVal hKey As Long) _
                                    As Long
 
Private Declare Function RegEnumKey Lib "advapi32.dll" _
                                    Alias "RegEnumKeyA" _
                                    (ByVal hKey As Long, _
                                    ByVal dwIndex As Long, _
                                    ByVal lpName As String, _
                                    ByVal cbName As Long) _
                                    As Long
 
 Private Declare Function RegOpenKey Lib "advapi32.dll" _
  Alias "RegOpenKeyA" (ByVal hKey As Long, _
  ByVal lpSubKey As String, phkResult As Long) As Long
 
Private Declare Function RegQueryValueEx Lib "advapi32.dll" _
  Alias "RegQueryValueExA" (ByVal hKey As Long, _
  ByVal lpValueName As String, ByVal lpReserved As Long, _
  lpType As Long, lpData As Any, lpcbData As Long) As Long
 
Private Declare Function RegSetValueEx Lib "advapi32.dll" _
  Alias "RegSetValueExA" (ByVal hKey As Long, _
  ByVal lpValueName As String, ByVal Reserved As Long, _
  ByVal dwType As Long, lpData As Any, ByVal cbData As Long) _
  As Long
 
Private Declare Function RegCreateKey Lib "advapi32.dll" _
  Alias "RegCreateKeyA" (ByVal hKey As Long, _
  ByVal lpSubKey As String, phkResult As Long) As Long
 
Private Declare Function RegDeleteValue Lib "advapi32.dll" _
  Alias "RegDeleteValueA" (ByVal hKey As Long, _
  ByVal lpValueName As String) As Long
 
Private Const STANDARD_RIGHTS_ALL = &H1F0000
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_NOTIFY = &H10
Private Const KEY_CREATE_LINK = &H20
Private Const SYNCHRONIZE = &H100000
 
Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or _
                                 KEY_QUERY_VALUE Or _
                                 KEY_SET_VALUE Or _
                                 KEY_CREATE_SUB_KEY Or _
                                 KEY_ENUMERATE_SUB_KEYS Or _
                                 KEY_NOTIFY Or _
                                 KEY_CREATE_LINK) And _
                                 (Not SYNCHRONIZE))
 
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
 
 
Private Const ERROR_SUCCESS = 0&