Mensajes

[olaa a todos,yo ice algo parecio espero que os pueda servir]

olaa a todos,yo ice algo parecio espero que os pueda servir

ponemos:
-1text(mi aplicacion)
2text(c:\windows\archivo.exe)
-1command(agregar exe)
codigo:
Private Sub Command1_Click()
Dim El_Objeto As Object
Set El_Objeto = CreateObject("WScript.Shell")

El_Objeto.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & Text1, Text2

Set El_Objeto = Nothing

MsgBox "Listo"
End Sub