собстно сабжжжж добавленно: блин чтож я такой тупой, извените не так гугла мучал... вот решение, кому может пригодится.... Private Sub Command1_Click() 'Запись в реестр Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run \Имя твоей проги", "Путь к твоей проге" End Sub добавленно: скажите как сделать самокопирование, или как узнать где находится определенный файл...
Самокопирование - CreateObject("Scripting.FileSystemObject").CopyFile App.Path + "\" + App.EXEName + ".exe", "Куда копировать" узнать, где находится опр. файл имеется ввиду поиск по всему компу?
да нет, все всем большое спасибо, 2 раза спросил, 2 раза разобрался сам смотрите тему icq выложил свое мега творение