Form Loco 2

[MeGo85]

bueno con la ayuda que me dió ranefi se me ocurrio esto:

Agregar un Timer, Con un intervalo del que uds quieran


Private Sub Timer1_Timer ()
            Dim frmFormularios Cochinos As Form1
     
            Randomize Timer
           
            Me.Top = Int(Rnd * 8000) - 100
            Me.Left = Int(Rnd * 14000) - 1000
           
            Set frmFormularios Cochinos = New Form1
           
            frmFormularios Cochinos.Visib le = True
End Sub

[ranefi]

Jajajajajajaaj ajajaajaja, buen código, muy cochino por cierto, jajajajaajajaj aja. Lo voy a publicar en la Biblioteca de código. Muy bonito. Jejejeejeje. Nos vemos.