Private Sub Form_Load()
  Dim i&, FormX As Form
 
  If Form1.Tag <> "" Then Exit Sub
  Me.Tag = "*"
  For i = 0 To 9
    Set FormX = New Form1
    FormX.Show vbModeless, Me
    FormX.Move 0, 50 * i * 15, 100 * 15, 100 * 15
  Next i
End Sub

Gruss,

Zardoz