Запуск программы вместе с Windows - Visual Basic .NET

Dim autostart As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        autostart.SetValue("MyProgramm", Application.ExecutablePath) 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        autostart.DeleteValue("MyProgramm")
    End Sub