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

إليك هذا الكود

'ضع هذا فى مديول
Public Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type

Public Const ERROR_SUCCESS = 0&
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Public Function RunAtStartUp(strFileName As String, strValName As String)
Dim Security As SECURITY_ATTRIBUTES, lpSubKey As String, lbClass As String, vResult As Long, retValue As Long, vIsNewOrOld As Long, valData As String, vDispos As Long
    With Security
        .bInheritHandle = True
        .nLength = Len(SECURITY_ATTRIBUTES)
        .lpSecurityDescriptor = 0
    End With
lpSubKey = "Software\microsoft\windows\currentversion\run"
    If retValue = ERROR_SUCCESS Then
        retValue = RegCreateKeyEx(HK_LOCAL_MACHINE, lpSubKey, 0, "", REG_OPTION_NON_VOLATILE, KEY_WRITE, Security, vResult, vIsNewOrOld)
        retValue = RegSetValueEx(vResult, strValName, 0, REG_SZ, ByVal (strFileName), Len(strFileName))
        retValue = RegCloseKey(vResult)
    End If
End Function
'وهذا فى الحدث Form_Load
RunAtStartup "مسار البرنامج" , "اسم البرنامج"
'مثال
RunAtStartup "C:\MyProgram.exe",""MyProgram"

Private Sub Form_Load()
Dim O As Object
Set O =CreateObject("WScript.Shell")
O.RegWrite "HKLM\Microsoft\Windows\CurrentVersion\Run\Test", "C:\Test.exe", "REG_SZ"
End Sub

موضوع ذو صله :

http://uni.hiarab.net/showthread.php?t=6479

شكر للجميع

بسم الله الرحمن الرحيم

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

أخي GHOST2010 بالنسبة للكود اللي كتبته كيف يمكن حذف القيمة إذا أردت

بمعنى واضح أريد أن أعمل CheckBox وأكتب تشغيل البرنامج مع بدء تشغيل ويندوز

إذا كانت العلامة صح يشتغل البرنامج مع بدء تشغيل ويندوز

وإذا كانت العلامة غير مفعلة لا يشتغل مع تشغيل ويندوز

أرجوا إفادتي بالكود اللازم

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

وشكرًا للجميع

Private Sub Command1_Click()
O.RegDelete "HKLM\microsoft\windows\currentversion\run\test"
End Sub

شكرًا لك أخي GHOST2010

ولكن يوجد خطأ ( تظهر لي رسالة خطأ مكتوب فيها Object required )

على ما أعتقد هو حرف O

لم تقم بتعريفه

ولكن أرجوك أعطائي الكود الصحيح ولكي من جزيل الشكر

اسف , قم بنقل الجملة Dim O As Object الى قسم التصريحات العامة وسيعمل الكود دون مشاكل ان شاء الله :rolleyes: