A ver si me acuerdo...
Private Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
Randomize Timer
Form1.Top = Int (Rnd * 8000) - 100
Form1.Left = Int (Rnd * 14000) -1000
End Sub
Creo que es asi,
Esto hara que cada vez que trates de poner el mouse sobre el form, este se mueva y no te deje posisionarte sobre el.
Pero me gustaria, que cada vez que pase el mouse sobre el form, saliera otro igual, y si paso el mause otra vez que saliera otro y asi sucesivamente.
no se si habra forma de hacerlo sin tener que hacer todos los form. ose me gustaria que cada vez que pasara el mause sobre el form saliera otro y otro y otro de forma infinita.
si alguien sabe como que por favor me lo diga.
Gracias.
Mostrar Temas
