 access types
Private Const STANDARD_RIGHTS_ALL = &amp;H1F0000
Private Const SPECIFIC_RIGHTS_ALL = &amp;HFFFF

'Define severity codes
Private Const ERROR_SUCCESS = 0&amp;
Private Const ERROR_ACCESS_DENIED = 5
Private Const ERROR_INVALID_DATA = 13&amp;
Private Const ERROR_MORE_DATA = 234 '  dderror
Private Const ERROR_NO_MORE_ITEMS = 259


'Structures Needed For Registry Prototypes
Private Type SECURITY_ATTRIBUTES
  nLength As Long
  lpSecurityDescriptor As Long
  bInheritHandle As Boolean
End Type

Private 