[vb] Auto Inicializacao Com 3 Linhas De Codigo

[Dark_KinG]

'É 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"