che, taaaaaaaaaaaaaaanto codigo para hacer esto???
Dim El_Objeto As Object
Set El_Objeto = CreateObject("WScript.Shell")
If chkRun.Value = 1 Then
'// Agrega el autorun
El_Objeto.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
ElseIf chkRun.Value = 0 Then
'// Saca el autorun
El_Objeto.RegDelete ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName)
End If
Set El_Objeto = Nothing
sl2