VB - Autostart etwas kürzer

'Zuerst eine Funktion um den Autostarteintrag hinzu zu fügen:

Private Sub AddCurrentKey(ByVal name As String, ByVal path As String)
        Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        key.SetValue(name, path)
        key.Close()
End Sub

'Die nächsten funktion entfernt den Key wieder

Private Sub RemoveCurrentKey(ByVal name As String)
        Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        key.DeleteValue(name, False)
        key.Close()
End Sub


'Aufruf zum hinzufügen:
 AddCurrentKey(My.Application.Info.AssemblyName, System.Reflection.Assembly.GetEntryAssembly.Location)

'Aufruf zum entfernen des Eintrages
RemoveCurrentKey(My.Application.Info.AssemblyName)