Dim anzahl As Integer
        anzahl = TextBox.Text
        For i As Integer = 1 To anzahl
            Dim nTextBox As New TextBox
 
            With nTextBox
                .Size = New Size(100, 20)
                .Location = New Point(200,100 + (i * 25))
                .Name = "TextBox" + i.ToString
            End With
 
            Me.Controls.Add(nTextBox)
        Next