Код добавления программы в автозагрузку. - VB

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

Доброго времени суток. Скажите подскажите пожалуйста какой должен быть код, чтобы программа при инсталяции добавлялась в автозагрузку. Спасибо.

Решение задачи: «Код добавления программы в автозагрузку.»

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

                            Dim Reg As Object, regSection As String, appFullName As String
On Error Resume Next
Set Reg = CreateObject('WScript.Shell')
regSection = 'Notepad'
appFullName = 'C:\WINDOWS\notepad.exe'
If chkAutoRun.Value = 0 Then
    Reg.RegDelete 'HKLMSoftwareMicrosoftWindowsCurrentVersionRun ' + regSection
Else
    Reg.RegWrite 'HKLMSoftwareMicrosoftWindowsCurrentVersionRun ' + regSection, _
                 appFullName
End If
Set Reg = Nothing
On Error GoTo 0
                        