'Diese drei prozeduren benutzen nicht das Windows-API, sondern 
' Windows-Scripting-Host!!!
 
'---Lesen---
'Gibt den Wert des Schlüssels aus "Path" zurück
Public Function RegRead(Path As String) As String
  Dim ws As Object
 
  On Error GoTo ErrHandler
  Set ws = CreateObject("WScript.Shell")
  RegRead = ws.RegRead(Path)
  Exit Function
 
ErrHandler:
  RegRead = ""
End Function
 
'---Schreiben---
' Schreibt den Wert aus "Value" als den Typ aus "Typ"
' in den in "Path" angegebenen Schlüssel
Public Function RegWrite(ByVal Path As String, _
  ByVal Value As String, _
  Optional ByVal Typ As String = "REG_SZ") As Boolean
 
  Dim ws As Object
 
  On Error GoTo ErrHandler
  Set ws = CreateObject("WScript.Shell")
  ws.RegWrite Path, Value, Typ
  RegWrite = True
  Exit Function
 
ErrHandler:
  RegWrite = False
End Function
 
'---Löschen---
' Löscht den Schlüssel aus "Path"
Public Function RegDelete(Path As String) As Boolean
  Dim ws As Object
 
  On Error GoTo ErrHandler
  Set ws = CreateObject("WScript.Shell")
  ws.RegDelete Path
  RegDelete = True
  Exit Function
 
ErrHandler:
  RegDelete = False
End Function

Private Sub Check1_Click()
If Check1.Value = 1 Then
RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Autostart", _
  "C:\Starten.exe"
Else:
RegDelete ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Autostart")
End If
End Sub
 
Private Sub Command1_Click()
End
End Sub