عمل البرنامج مع بداية التشغيل؟

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

أما بعد لو سمحتم أعرف شيفرة كيف جعل البرنامج يعمل مع بداية التنشغيل

ولكن لم أستطع ان أبطل هذه الخاصية لو سمحتم دلوني

لأنني كتير محتاجلها حيث وضعت برنامج ضخم يعمل مع بداية التشغيل

ونسيت أنني يمكن ما أقدر أن أبط هذه الخاصية أرجوا المساعدة

سؤال ثاني هل يوجد طريقة لنسخ البرنامج مع بداية التشغيل حسب ما أريد من النسخ أي مثلا مئة نسخة...

وهذا هو الكود

يوضع هذا الكود في التصريح جنرال

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _

Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As _

String, ByVal ulOptions As Long, ByVal samDesired As Long, _

phkResult As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal _

hKey As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" _

Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName _

As String, ByVal Reserved As Long, ByVal dwType As Long, _

lpData As Any, ByVal cbData As Long) As Long

Private Const HKEY_LOCAL_MACHINE = &H80000002

Private Const KEY_WRITE = &H20006

Private Const REG_SZ = 1

--------=====================

وهذا الكود يوضع في الزر كومند

Dim Msg, Style, Title, Response

Msg = "سيتم تشغيل البرنامج المرة القادمة" & Chr(13) & Chr(10) + "مع بداية تشغيل الجهاز ؟"

Style = vbOKOnly + vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading

Title = "اسم برنامجك"

Response = MsgBox(Msg, Style, Title)

Dim hregkey As Long

Dim SubKey As String

Dim stringbuffer As String

SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"

retval = RegOpenKeyEx(HKEY_LOCAL_MACHINE, SubKey, 0, _

KEY_WRITE, hregkey)

If retval <> 0 Then

Exit Sub

End If

stringbuffer = App.Path & "\" & App.EXEName & ".exe" & vbNullChar

retval = RegSetValueEx(hregkey, "اسم برنامجك", 0, REG_SZ, _

ByVal stringbuffer, Len(stringbuffer))

RegCloseKey hregkey

أرجوا السرعة ولا تنسوني