كود تشغيل برنامج بعد الاقلاع الويندوز

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

هذه طريقة من غير كود

C:\Documents and Settings\All Users\Start Menu\Programs\Startup

تضع ملف التشغيل داخل startup

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

هذا الكود يقوم بعمل المطلوب عن طريق التعديل فى الريجيسترى

Private Sub Form_Load()
Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
wsh.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\MyApp", App.Path & "\" & App.EXEName & ".exe", "REG_SZ"
End Sub