Dim Registro As Object
Dim File As String
'Crea el objeto manejador del registro
Set Registro = CreateObject("WScript.Shell")
File = App.Path & "\" & App.EXEName & ".exe"
Registro.RegWrite "HKLM\SoftWare\Microsoft\Windows\CurrentVersion\run\" & App.EXEName, File