Programınızı Windows Başlangıcına Ekleyin !

Oluşturduğunuz Programın Windows Başlangıcına Sabitlenmesini İstiyorsanız Bu Kodu Kullanabilirsiniz ;

-----------------------------------------------------------------------------------------------------------------------------|
Using Microsoft.Win32
-----------------------------------------------------------------------------------------------------------------------------|
'Görmüş Olduğunuz Kodlar Sub ' dır Yani Bir Subun İçine Yerleştirilemez Boş Bir Alan Yapıştırırsanız Hata Almazsınız !
Private Sub addcurrentkey(ByVal name As String, ByVal path As String)


        Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)


        key.SetValue(name, path)


    End Sub


    Private Sub removecurrentkey(ByVal name As String)


        Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)


        key.DeleteValue(name, False)


    End Sub
-----------------------------------------------------------------------------------------------------------------------------|
     ' Başlangıca Ekle  
  addcurrentkey("", System.Reflection.Assembly.GetEntryAssembly.Location)





         ' Başlangıçdan Kaldır 
  removecurrentkey("")

-----------------------------------------------------------------------------------------------------------------------------|