Добавить программу в автозагрузку

Private Const READ_CONTROL = &H20000
Private Const STANDARD_RIGHTS_READ = (READ_CONTROL)
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_NOTIFY = &H10
Private Const SYNCHRONIZE = &H100000
Private Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
Private Const KEY_SET_VALUE = &H2
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or _
              KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
Private Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or _
              KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const ERROR_SUCCESS = 0&
Private Const REG_SZ = 1                         ' Unicode nul terminated string
 
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, _
        phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias _
        "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
        ByVal lpReserved As Long, lpType As Long, lpData As Any, _
        lpcbData 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 Sub Command1_Click()
'The following code will create the registry entry:
    Dim hKey As Long, aData As String, lSize As Long
    If RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
       "software\microsoft\windows\currentversion\run", 0, _
       KEY_WRITE, hKey) = ERROR_SUCCESS Then
        aData = "c:\myprog.exe"
        lSize = Len(aData)
        If RegSetValueEx(hKey, "MyApp", 0, REG_SZ, ByVal aData, _
           lSize) = ERROR_SUCCESS Then
            MsgBox aData & " written"
        End If
        RegCloseKey hKey
    End If
 
 
 
End Sub
 
Private Sub Command2_Click()
'The following code will read the registry entry:
    Dim hKey As Long, aData As String, lType As Long, lSize As Long
    If RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
       "software\microsoft\windows\currentversion\run", 0, KEY_READ, _
       hKey) = ERROR_SUCCESS Then
        lSize = 128
        aData = Space$(lSize)
        If RegQueryValueEx(hKey, "MyApp", 0, lType, ByVal aData, _
           lSize) = ERROR_SUCCESS Then
            If lSize Then
                aData = Left$(aData, lSize - 1)
                MsgBox aData & " read"
            End If
        End If
        RegCloseKey hKey
    End If
End Sub
 
Private Sub Form_Load()
MsgBox " Привет, я уже здесь!!!"
'Unload Me
End Sub

Sub bb()
With CreateObject("WScript.Shell")
  With .CreateShortcut(.SpecialFolders("Startup") & "\MyProg.lnk")  'имя ярлыка
    .TargetPath = "c:\temp\MyProg.exe"        'путь к программе
    .HotKey = "CTRL+ALT+T"                    'опционально
    .Description = "Всплывает при наведении"  'опционально
    .IconLocation = "shell32.dll, 5"          'опционально
    .WindowStyle = 1                'опционально: 1-норм, 3-макс, 7-мин
    .WorkingDirectory = "C:\temp\"            'опционально
    .Save
  End With
End With
End Sub

aData = App.Path &  "\myprog.exe"

App.Path & "\" & App.EXEName

aData = App.Path & "\" & App.EXEName & ".exe"