Private Sub Command1_Click()
 
Dim i As Integer
Dim zahl As Integer
 
zahl = Combo1.Text
For i = 1 To zahl
 
Load Text1(i)
With Text1(i)
      ' Neues Textfeld positionieren
      ' (immer unterhalb des vorigen Textfeldes)
      .Top = Text1(i - 1).Top + Text1(i - 1).Height + 105
 
      ' Wichtig! Neues Textfeld sichtbar machen!
      .Visible = True
 
      ' Text-Eigenschaft setzen
      .Text = "Textfeld " & CStr(i + 1)
      End With
 
Next i
 
End Sub
 
Private Sub Form_Load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "6"
End Sub