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
 
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 Sub Form_Load()
hwnd1 = Me.hWnd
RegCreateKey "&H80000001", "Software\Test", vRet
RegSetValueEx vRet, "Hwnd", 0, "1", hwnd1, Len(hwnd1)
RegCloseKey vRet
End Sub

[u]Mein System online

MfG ICE-MAN