Create a Registry Control

Add a module (mDeclares). Copy the following code into the module:

'Registry Constants
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const ERROR_SUCCESS = 0&
Public Const REG_SZ = 1 ' Unicode nul
                        ' terminated string
Public Const REG_DWORD = 4
 
'Registry API Declarations
Public Declare Function RegCloseKey _
     Lib "advapi32.dll" _
     (ByVal HKey As Long) As Long

Public Declare Function RegCreateKey _
     Lib "advapi32.dll" Alias "RegCreateKeyA" _
        (ByVal HKey As Long, _
         ByVal lpSubKey As String, _
         phkResult As Long) As Long

Public Declare Function RegDeleteKey _
    Lib "advapi32.dll" Alias "RegDeleteKeyA" _
        (ByVal HKey As Long, _
        ByVal lpSubKey As String) As Long

Public Declare Function RegDeleteValue _
    Lib "advapi32.dll" Alias "RegDeleteValueA" _
        (ByVal HKey As Long, 
         ByVal lpValueName As String) As Long

Public Declare Function RegOpenKey _
    Lib "advapi32.dll" Alias "RegOpenKeyA" _
        (ByVal HKey As Long, _
         ByVal lpSubKey As String, _
         phkResult As Long) As Long

Public 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

Public 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

Page 2 of 3



This article was originally published on November 20, 2002