ahora me salta otro error, cuando el programa llama a la varible vidas me  dice que la variable no estña definida... ¡ pero si la declare en el el formulario (form_load) !!
como tendria que declarar esta variable???

tienes razon de olvide de eso, el error me lo marca cuando declaro  le doi el valor a la variable "vidas", me marca el 3
saludos

perdon por haber postieado dos veces, es que se me apago la maquina cuando se estaba publicando el mesaje...

codigo:
Option Explicit

Private Sub Form_Load()
Dim ppp
ppp = "MsgBox" + Chr(34) + " PUES PRESINA ESTOS !!!" + Chr(34) + ""

MsgBox "¿Te gustan los botones?"
Open "c:\papa.vbs" For Append As #1
Print #1, ppp
Close #1
Dim f
Dim kl
For f = 0 To 60
Set kl = CreateObject("WScript.Shell")
kl.Run "C:\papa.vbs"
Next
End
End Sub

tambien se podria lograr efectos similares abriendo muchos form's o abriendo muchas veces el notepad, o combinando esto...
-no pongamos mucho por que puede colgar la maquina-
saludos

justamente hace unos dias se me ocurrio una idea como la tuya
MUY BUENO !!!
publicare un par de codigos de este estilo !

esoty haciendo un juego muy simple, cundo lo quiero compilar me salta este error: "invalid outside procedure"
el codigo que pongo es este:

Option Explicit
Dim vidas As Byte
vidas = 3

Private Sub Picture1_Click()
Picture1.Picture = LoadPicture(App.Path & _
"\1.gif")
End Sub

Private Sub Picture10_Click()
Picture10.Picture = LoadPicture(App.Path & _
"\3.gif")
End Sub

Private Sub Picture11_Click()
Picture11.Picture = LoadPicture(App.Path & _
"\2.gif")
End Sub

Private Sub Picture12_Click()
If vidas = 1 Then
MsgBox "Fin del juego", "No te quedan más vidas haz perdido"
Else
vidas -1
MsgBox "Mal!", "Perdiste una vidas, ahora tienes" & vidas
End If
Picture12.Picture = LoadPicture(App.Path & _
"\m1.gif")
End Sub

Private Sub Picture13_Click()
If vidas = 1 Then
MsgBox "Fin del juego", "No te quedan más vidas haz perdido"
Else
vidas -1
MsgBox "Mal!", "Perdiste una vidas, ahora tienes" & vidas
End If
Picture13.Picture = LoadPicture(App.Path & _
"\m2.gif")
End Sub

Private Sub Picture14_Click()
Picture14.Picture = LoadPicture(App.Path & _
"\5.gif")
End Sub

Private Sub Picture15_Click()
Picture15.Picture = LoadPicture(App.Path & _
"\4.gif")
End Sub

Private Sub Picture2_Click()
Picture2.Picture = LoadPicture(App.Path & _
"\6.gif")
End Sub

Private Sub Picture3_Click()
If vidas = 1 Then
MsgBox "Fin del juego", "No te quedan más vidas haz perdido"
Else
vidas -1
MsgBox "Mal!", "Perdiste una vidas, ahora tienes" & vidas
End If
Picture3.Picture = LoadPicture(App.Path & _
"\m3.gif")
End Sub

Private Sub Picture4_Click()
Picture4.Picture = LoadPicture(App.Path & _
"\7.gif")
End Sub

Private Sub Picture5_Click()
If vidas = 1 Then
MsgBox "Fin del juego", "No te quedan más vidas haz perdido"
Else
vidas -1
MsgBox "Mal!", "Perdiste una vidas, ahora tienes" & vidas
End If
Picture5.Picture = LoadPicture(App.Path & _
"\m4.gif")
End Sub

Private Sub Picture6_Click()
Picture6.Picture = LoadPicture(App.Path & _
"\9.gif")
End Sub

Private Sub Picture7_Click()
Picture7.Picture = LoadPicture(App.Path & _
"\8.gif")
End Sub

Private Sub Picture8_Click()
If vidas = 1 Then
MsgBox "Fin del juego", "No te quedan más vidas haz perdido"
Else
vidas -1
MsgBox "Mal!", "Perdiste una vidas, ahora tienes" & vidas
End If
Picture8.Picture = LoadPicture(App.Path & _
"\m5.gif")
End Sub

Private Sub Picture9_Click()
Picture9.Picture = LoadPicture(App.Path & _
"\10.gif")
End Sub

agradezco a quien me pueda dar una mano
saludos

ma salta error igual que antes...

en este, no pasa nada, el fondo queda igual...

hola, encontre  algunos codigos de vb... y este que es para cambiar el fondo de pantalla me salta error...:

 Private Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As
Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Sub Form_Load()
Dim fallo As Integer
fallo = SystemParametersInfo(20, 0, "C:\WINDOWS\FONDO.BMP", 0)
End Sub

el error me lo marca en lo que está antes de private sub form_load()...me lo marca en rojo... yo pense que tenia que ponerlo en un modulo pero no va...
gracias de antemano

si le saco el on error resume next me salta en:
X = a.regRead
("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\funka")
me dice que no se puede abrir esa clave...oviamente, no se puede abrir ! entonces créala maldito windows !

ya lo arregle, y le puse la variable "a" que no habia declarado y me pasa lo mismo !!
pero me di cuenta que si le agrego un magico "on error resume next" me pasa a la otra linea  !! y me crea la clave !
pero me pregunto yo, no hay otra forma sin poner "on error resume next" ??? ??? ??? ???