Private Sub Command1_Click() 'Запись в реестр
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Имя Вашей программы", "Путь к Вашей программы"
End Sub

Private Sub Command2_Click() 'Удаление из реестра
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Имя Вашей программы"
End Sub

Private Sub Form_Load()
Command1.Caption = "Записать"
Command2.Caption = "Стереть"
End Sub