[learning.net]

اخى لقد وضعت لك الاكواد وانت تضعها فى اى حدث تريده.
وهى ليست مقصوره على حدث الForm1_Load
اخى جرب الاتى :-
1- اعلى محرر الكود ضع هذا الكود

كود :

Imports Microsoft.Win32

2- ضع على الفورم اداة CheckBox

3- فى حدث CheckedChanged تبع ال CheckBox

ضع هذا الكود كاملا

كود :

If CheckBox1.Checked = True Then
            Try
                Dim regkey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
                regkey.SetValue("", Application.ExecutablePath)
                My.Settings.Save()
            Catch
                MsgBox("خطأ", MsgBoxStyle.Critical, "")
            End Try
        Else
            Try
                Dim regkey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
                regkey.DeleteValue("", False)
                My.Settings.Save()
            Catch
                MsgBox("خطأ", MsgBoxStyle.Critical, "")
            End Try
        End If

وجرب البرنامج


وبالتوفيق ان شاء الله