Form Loco

[MeGo85]

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.

[ranefi]

Buen día MeGo85. Jajajajaja, sabes, jamás se me había ocurrido hacer algo como eso, jajajaja, es gracioso ver como se reproduce en forma exponencial, en verdad asusta.

Código:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim frmFormulariosCochinos As Form1
   
    Randomize Timer
   
    Me.Top = Int(Rnd * 8000) - 100
    Me.Left = Int(Rnd * 14000) - 1000
   
    Set frmFormulariosCochinos = New Form1
   
    frmFormulariosCochinos.Visible = True
End Sub

Espero y te sirva de algo. Nos vemos.