'É só copiar no Form_load
'Não utiliza API
'Somente 3 linhas de codigo
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"
'Não utiliza API
'Somente 3 linhas de codigo
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"