SetStartUpApplications(True) ' For creating Your application in start up
SetStartUpApplications(False) ' For Deleting Your application from start up
Public Sub SetStartUpApplications(ByRef Value As Boolean)
Dim strPath = """C:\Program Files\Your EXE """
Dim HKCU As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
Dim key As Microsoft.Win32.RegistryKey = HKCU.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run")
If (Value = True) Then
key.SetValue("Your Project name", strPath)
Else
key.DeleteValue("Your Project name", True)
End If
End Sub