Автозапуск программы - VB

Формулировка задачи:

Как сделать, чтобы программа запускалась при старте системы?

Решение задачи: «Автозапуск программы»

textual
                            Листинг программы 
                        

                            ' Этот пример показывает, как создавать ярлык к программе
' и копировать его в заданную папку
sub command1_click()
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
 
Dim MyShortcut, MyDesktop, StartupPath
 
' Узнаем путь к специальной папке Автозагрузка
StartupPath = WSHShell.SpecialFolders("Startup")
 
' Создаем ярлык для Автозагрузки
Set MyShortcut = WSHShell.CreateShortcut(StartupPath & "\Ярлык к калькулятору.lnk")
 
' Устанавливаем свойства для ярлыка
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("%windir%\calc.exe")
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%")
MyShortcut.WindowStyle = 4
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("%windir%\calc.exe, 0")
MyShortcut.Save
 
Set MyShortcut = nothing: set WSHShell = nothing
msgbox "Ярлык к калькулятору создан и помещен в Автозагрузку"
end sub
                        