Llenar escritorio de formularios

[COMANDOSOFT]

Hola! Que codigo he de utilizar para que al ejecutar, se me vaya llenando el escritorio de formularios, y que lo hagan aleatoriamente

[Spider-Net]

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim xForm As Form
    Set xForm = New Form1
    xForm.Show
End Sub

No creo que te sea muy complicado convertir eso en un bucle verdad?

Saludos!

[COMANDOSOFT]

  Perfecto!

Muchas gracias amigo 

[COMANDOSOFT]

Joe tu code no lo entendi!

Voy a empezar desde el principio. Tengo este codigo:

Private Sub Command1_Click()
DimError Frm(1 To 5) As NewError Form1
For i = 1 To 5
    FrmError(i).Show
    DoEventsError
NextError
End Sub

Le he puesto unos fallos para que no pegen y copien Que a si no se aprende nunca nada...

Pues ese codigo las abre pero no me tapan el escritorio creo que tiene que ver con las coordenadas X / Y
¿Que le faltaria al codigo?

[Jubjub]

Podrias moverlas con un poco de numeros aleatorios dentro del bucle

[BlackZeroX]

Joe tu code no lo entendi!

Voy a empezar desde el principio. Tengo este codigo:

Private Sub Command1_Click()
DimError Frm(1 To 5) As NewError Form1
For i = 1 To 5
    FrmError(i).Show
    DoEventsError
NextError
End Sub

Le he puesto unos fallos para que no pegen y copien Que a si no se aprende nunca nada...

Pues ese codigo las abre pero no me tapan el escritorio creo que tiene que ver con las coordenadas X / Y
¿Que le faltaria al codigo?

TOP =rnd(1)* screen.wi...   (Coord Y)
LEFT =rnd(1)* screen.wi...  (Coord X)