Public Enum REG_PARAM_TYPES
    REG_SZ =  1 
    REG_BINARY =  3 
    REG_DWORD =  4 
End Enum

Type uParamInfo
    sName As String
    iType As REG_PARAM_TYPES
    sValue As String
End Type

Dim Params() As uParamInfo

Private Sub Form_Load()
    Dim Reg As New cRegistry, sList As String, sArr() As String

    'Перечислим все ключи программ в HKLM
    For Each xKey In Reg.EnumKeys(HKEY_LOCAL_MACHINE, "SOFTWARE")
        sList = sList & xKey & vbCrLf
    Next
    
    MsgBox "Ключи программ: " & sList, vbInformation
    'Прочитаем произвольные данные
    
    MsgBox "Размер курсора в cmd: " & Reg.ParamGetDWORD(HKEY_CURRENT_USER, "Console", "CursorSize"), vbInformation
    MsgBox "Время даблклика мыши: " & Reg.ParamGetString(HKEY_CURRENT_USER, "Control Panel\Mouse", "DoubleClickSpeed"), vbInformation
    
    sArr = Reg.EnumParams(HKEY_LOCAL_MACHINE, "HARDWARE\DEVICEMAP\SERIALCOMM")
    sList = ""
    For I =  0  To UBound(sArr)
        sList = sList & sArr(I) & vbCrLf
    Next
    
    MsgBox "Ещё чё-то читаем: " & sList, vbInformation
    
    Call Reg.ParamSetDWORD(HKEY_CURRENT_USER, "NEW_VS_SOFT\Settings", "DD",  10 ) 'Запишем наше значение
    MsgBox "Читаем значение: " & Reg.ParamGetDWORD(HKEY_CURRENT_USER, "NEW_VS_SOFT\Settings", "DD")
    
    'Удаляем наш ключ
    Call Reg.DeleteKey(HKEY_CURRENT_USER, "NEW_VS_SOFT\Settings")
    Call Reg.DeleteKey(HKEY_CURRENT_USER, "NEW_VS_SOFT")
End Sub