Basta adicionar o codigo abaixo ao evento load do seu Formulário:
Dim
Reg As Object
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\"
& "Desktop", App.Path & "\" & App.EXEName
& ".exe"
End Sub
Na proxima inicialização do windows seu programa se abrirá
atenção, ele tem que estar copilado, se não, não irá abrir.
© 2009 Todos os Direitos Reservados a Tornado Digital Página Principal - Dicas e Truques - Frases - Downloads - Forúm - Fale Conosco