VB6 - caricare più istanze dello stesso form

Private Sub Command1_Click()
Dim newForm As Form

  Set newForm = New Form2
  newForm.Visible = True
 
 
End Sub

Private Sub Command2_Click()

  Me.Cls
  For i = 0 To Forms.Count - 1
    Me.Print Forms(i).Name, Forms(i).Visible, Forms(i).Label1.Caption
  Next
 
End Sub

Private Sub Command3_Click()

  totwidth = Screen.Width
  For i = 0 To Forms.Count - 1
    Forms(i).Left = totwidth / Forms.Count * i
    Forms(i).Width = totwidth / Forms.Count
    Forms(i).Top = 0
  Next
 
End Sub

Private Sub Form_Unload(Cancel As Integer)
  End
End Sub