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

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult 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 Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long

Public Const REG_SZ = 1

Public Enum RegClasses
HKEY_CLASSES_ROOT = &H80000000
HKEY_CURRENT_USER = &H80000001
HKEY_LOCAL_MACHINE = &H80000002
HKEY_USERS = &H80000003
HKEY_PERFORMANCE_DATA = &H80000004
End Enum
Public Sub SaveString(hKey As RegClasses, strPath As String, strValue As String, strData As String)
Dim Ret As Long
RegCreateKey hKey, strPath, Ret
RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)
RegCloseKey Ret
End Sub
Public Sub DelString(hKey As RegClasses, strPath As String, strValue As String)
Dim Ret As Long
RegCreateKey hKey, strPath, Ret
RegDeleteValue Ret, strValue
RegCloseKey Ret
End Sub
Public Function GetString(hKey As RegClasses, strPath As String, strValue As String)
Dim Ret As Long
RegOpenKey hKey, strPath, Ret
GetString = RegQueryStringValue(Ret, strValue)
RegCloseKey Ret
End Function
ثم قم بادراج مربع إختيار واكتب بداخله الكود التالي
On Error Resume Next
If Check1.Value = vbChecked Then
SaveString HKEY_CURRENT_USER, "software\Microsoft\windows\currentversion\run\", App.EXEName, App.Path & "\" & App.EXEName & ".exe"
Else
DelString HKEY_CURRENT_USER, "software\Microsoft\windows\currentversion\run\", App.EXEName
End If