[السندبااد]

[COLOR="#0000CD"]السلام عليكم ورحمة الله وبركاته
ضع تشيك بوكس واترك الخيار للمستخدم إن قام بتفعيلها يعمل البرنامج مع تشغيل النظام وإلا لا يعمل مع تشغيل النظام
تفضل الكود (نفرض أن اسم البرنامج MyProgram) ضعه في حدث Check1_Click :[/COLOR]

PHP كود :

Dim ObjWsh As Object
Set ObjWsh = CreateObject("Wscript.shell")
If Check1.Value = 1 Then
   ObjWsh.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" & "MyProgram.exe", App.Path & "\MyProgram.exe"
Else
   ObjWsh.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" & "MyProgram.exe", "null"
End If