Как записать программу в Автозагрузку на Windows 7

Option Explicit
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 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, ByRef lpData As Any, ByVal cbData As Long) As Long
Private Const HKEY_LOCAL_MACHINE As Long = &H80000002
Private Const KEY_ALL_ACCESS As Long = &H3F
Private Const REG_SZ As Long = 1
Public Sub AddToStartup(ByVal strKey As String, ByVal strValue As String)
    Dim lResult As Long
    Call RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", _
        0, KEY_ALL_ACCESS, lResult)
    Call RegSetValueEx(lResult, strKey, 0, REG_SZ, ByVal strValue, Len(strValue))
    Call RegCloseKey(lResult)
End Sub
Private Sub Form_Load()
Call AddToStartup("название программы", "путь к программе")
End Sub