Option Explicit
Private Const KEY_WRITE As Long = &H20006
Private Const ERROR_SUCCESS As Long = 0&
Private Const HKEY_LOCAL_MACHINE As Long = &H80000002
Private Const REG_SZ As Long = 1
Private Const RunKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
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, ByRef 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, ByRef lpData As Any, ByVal cbData As Long) As Long
Private Sub Form_Load()
Dim AppPath As String, StartupPath As String
Dim hKey As Long
AppPath = App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & App.EXEName & ".exe"
If RegOpenKeyEx(HKEY_LOCAL_MACHINE, RunKey, 0, KEY_WRITE, hKey) = ERROR_SUCCESS Then
RegSetValueEx hKey, App.Title, 0, REG_SZ, ByVal """" & AppPath & """" & vbNullChar, Len(AppPath) + 3
RegCloseKey hKey
End If
End Sub
