собстно сабжжжж

добавленно:
блин чтож я такой тупой, извените не так гугла мучал...
вот решение, кому может пригодится....

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

добавленно:
скажите как сделать самокопирование, или как узнать где находится определенный файл...