Imports Microsoft.Win32

Public Class Form1
Dim RegKey As RegistryKey = Registry.LocalMachine.OpenSubKey(" _
    "Software\\Microsoft\\Windows\\CurrentVersion\\Run\\", True)

Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
   'Im Autostart aktiv? Wenn ja Häkchen setzen
  If CType(RegKey.GetValue(Application.ProductName), String) = _
     (Application.ExecutablePath & " /Win") Then
     CheckBox1.Checked = True
  Else
     CheckBox1.Checked = False
  End If
End Sub

Private Sub CheckBox1_Click(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles CheckBox1.Click

  If CheckBox1.Checked = True Then
      'Mit Windows starten falls Haken gesetzt
     Try
       RegKey.SetValue(Application.ProductName, _
          Application.ExecutablePath & " /Win")
     Catch ex As Exception
       MsgBox("Konnte Autostart leider nicht hinzufügen", _
          CType(MsgBoxStyle.MsgBoxSetForeground + _
          MsgBoxStyle.Critical, MsgBoxStyle), "Fehler")
     End Try
  Else
     'Autostart wieder deaktivieren wenn kein Haken gesetzt
     Try
       If CType(RegKey.GetValue(Application.ProductName), _
          String) <> "" Then _
          RegKey.DeleteValue(Application.ProductName)
     Catch ex As Exception
       MsgBox("Konnte Autostart leider nicht entfernen", _
          CType(MsgBoxStyle.MsgBoxSetForeground + _
          MsgBoxStyle.Critical, MsgBoxStyle), "Fehler")
     End Try
  End If
End Sub