Private Sub MDIForm_Load()
Dim neueForm As New Form1
Dim Anzahl, Zähler As Integer
 
Anzahl = InputBox("Anzahl der Forms")
 
For Zähler = 1 To Anzahl Step 1
neueForm.Caption = Zähler
neueForm.Show
Next
MDIForm1.Arrange 1
End Sub