'Fuegen Sie folgenden Code in eine Form ein.
'Hallo Mat...
'Hier ein kleines Loesungsbeispiel wie Sie Ihr Programm in der Registrie im 
' Schluessel "Run"
'eintragen koennen. Als Ergebnis wird die Datei <test.exe> die sich hier auf 
' Laufwerk
'c:\ befindet beim Windows Start ausgefuehrt.
'NG.: 30.01.03
 
Private Sub Command1_Click()
    Call SetMyApplicationToRun(HKEY_LOCAL_MACHINE, _
      "Software\Microsoft\Windows\CurrentVersion\Run", _
                                             "MyPrivateApplication", _
                                             "c:\test.exe")
 
End Sub
 
'Fuegen Sie folgenden Code in ein Modul ein.
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 RegCloseKey Lib "advapi32.dll" _
                                    (ByVal hKey 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
 
Private Const REG_SZ = 1
Public Const HKEY_LOCAL_MACHINE = &H80000002
 
Public Sub SetMyApplicationToRun(lhkey As Long, sSubKey As String, sValueName _
  As String, lpData As String)
    Dim phkResult   As Long
    Dim lRet        As Long
 
    lRet = RegCreateKey(lhkey, sSubKey, phkResult)
    lRet = RegSetValueEx(phkResult, sValueName, 0, REG_SZ, ByVal lpData, Len( _
      lpData))
    Debug.Print lRet
    lRet = RegCloseKey(phkResult)
End Sub
'MfG
'Frank