Private Sub Form_click()
Do While (carita.Left + carita.Width) < Form1.ScaleWidth
carita.Left = carita.Left + 10
Loop
carita.Left = 0
MsgBox ("termino")
End Sub
miércoles, 12 de noviembre de 2008
Suscribirse a:
Enviar comentarios (Atom)
PROGRAMAS DE VISUAL BASIC 6.0 PROGRAMAS BASICOS Y PERSONALIZADOS
No hay comentarios:
Publicar un comentario