[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

هذا أحد الأكواد المجرّبة و يعمل دون أي إلتباسات ..

كود :

     'تشغيل البرنامج مع بداية تشغيل الوينداوز
       CheckBox1.Checked = True
       Try
           Dim regKey As Microsoft.Win32.RegistryKey
           If CheckBox1.Checked = True Then
               regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
               regKey.SetValue(Application.ProductName, Application.ExecutablePath)
               regKey.Close()
           Else
               regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
               regKey.DeleteValue(Application.ProductName, False)
               regKey.Close()
           End If
       Catch ex As Exception
       End Try

يتم وضعه بالفورم لودْ حسب مشروعك ..

فقط قم بإضافة عنصر تشيك بوكس و أشّر عليه أثناء التّصميم ليكون التّشغيل مع بداية تشغيل الوينداوز مفعّلا على طول

تحياتي