Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey 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 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
Const REG_BINARY = 3
Const HKEY_CURRENT_USER = &H80000001
 
Private Sub Command1_Click()
  Dim Ret
  Dim wert As Byte
  wert = 0
  RegCreateKey HKEY_CURRENT_USER, "DeinRegistryPfad", Ret
  RegSetValueEx Ret, "DerNameDesWertes", 0, REG_BINARY, wert, 1
  RegCloseKey Ret
End Sub