Binaryworld - CreateRegistryKey - Create a key in the Registry ... [ VB -> Windows ]

Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias _
  "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _
  ByVal Reserved As Long, ByVal lpClass As Long, ByVal dwOptions As Long, _
  ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, _
  phkResult As Long, lpdwDisposition As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As _
  Long

Const KEY_READ = &H20019 ' ((READ_CONTROL Or KEY_QUERY_VALUE Or
             ' KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not
             ' SYNCHRONIZE))
Const REG_OPENED_EXISTING_KEY = &H2

' Create a registry key, then close it
' Returns True if the key already existed, False if it was created

Function CreateRegistryKey(ByVal hKey As Long, ByVal KeyName As String) As _
  Boolean
  Dim handle As Long, disposition As Long

  If RegCreateKeyEx(hKey, KeyName, 0, 0, 0, 0, 0, handle, disposition) Then
    Err.Raise 1001, , "Unable to create the registry key"
  Else
    ' Return True if the key already existed.
    CreateRegistryKey = (disposition = REG_OPENED_EXISTING_KEY)
    ' Close the key.
    RegCloseKey handle
  End If
End Function