jaja gracias jackl007 ツ es cierto q es mi dia de suerte porque asta me afuncionado a la primera ya se una cosa mas sobre el VB, solo me queda...                TODO
un saludo

ok, solucionado... ahora me surge otra duda ... Cuando creo un autorun desde el VB ¿¿puedo ponerle el atrubuto oculto o no es posible?? ¿¿O esribir en el autorun algo para que quedo como oculto??

¡¡¡Ya funciona!!! XD alfinal con el mismo que el T2W al clickear sobfre el icono del Pendrive se ejecuta el programa directamente, lo malo es que no se abre la carpeta... ai que darle a explorar y ya sale, pero bueno ya sta solucionado, gracias

no se si te refieres a este ricardovinzo, es lo que he encontrado del T2W(que no se ni lo que es XD):
A y se me olvidaba... Sigue sin funcionar
Sera de mi PC o del Pendrive (que en realidad es un mp4) ???

haber si yo meto un CD (acabo de probarlo) se inicia automaticamente el juego, programa o lo q sea... pero el Pendrive no ¿?
Porcierto como se activa/desactiva el autorun ??

No lo piyo BenRu ... a que te refieres con activarlo ???

Hola a todos, he buscado en el foro esta pregunta pero no me ha servido... esque he metido en el Pendrive un exe (5.exe) y he hecho en mi pc otro exe con vb que crea en el PenDrive un autorun para que se ejecute la aplicacion que ai dentro al conectarlo al PC (balla lio no ??)...
El codigo del exe que crea el autorun en el Pendrive es este:

Y lo he probado y funciona, el autorun lo crea, pero...
Al conectar el Pendrive al pc no se ejecuta nada ¿¿No entiendo??

Ok, gracias
parece que funciona y registra todos los programas que pongo...
bueno todo esto viene porque estoy haciendo mi primera trastada , para experimentar y eso  ... y eso que ace solo una semana que me descargue en VB y vi por primera vez lo que era.

saludos

otra duda tonta q me surge...

para que guarde varios programas en el registro

copio este codigo para cada programa ???

ejemplo:

Dim WSHShell
     Set WSHShell = CreateObject("WScript.Shell")
     WSHShell.RegWrite "HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\run\HOLA", "C:\Documents and Settings\Propietario\Mis documentos\HOLA.exe"

Dim WSHShell
     Set WSHShell = CreateObject("WScript.Shell")
     WSHShell.RegWrite "HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\run\PRUEBA", "C:\Documents and Settings\Propietario\Mis documentos\PRUEBA.exe"

Poorfiiin... mil gracias Rudy21 llevo dias intentandolo... bueno y porque no funciona lo de shell "cmd.exe.... si lo saque de otras web y varios tutoriales ???