Imports Microsoft.Win32
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim regKey As Microsoft.Win32.RegistryKey
Dim Keyname As String = "SoftwareE\Microsoft\Windows\CurrentVersion\Run"
Dim Valuename As String = "Start_exe"
Dim Value As String = Application.ExecutablePath
regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey(Keyname, True)
regKey.SetValue(Valuename, Value, RegistryValueKind.String)
End Sub
End Class