ource As Any, ByVal cbCopy As Long)
Private Declare Function ExpandEnvironmentStrings Lib "kernel32" Alias
 "ExpandEnvironmentStringsA" (ByVal lpSrc As String, ByVal lpDst As String,
 ByVal nSize As Long) As Long


Public Enum ERegistryClassConstants
    HKEY_CLASSES_ROOT = &amp;H80000000
    HKEY_CURRENT_USER = &amp;H80000001
    HKEY_LOCAL_MACHINE = &amp;H80000002
    HKEY_USERS = &amp;H80000003
End Enum

Public Enum ERegistryValueTypes
'Predefined Value Types
    REG_NONE = (0)                         'N