Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Const Max As Integer = 10
Dim TextBoxes(Max) As TextBox
For i = 0 To Max
TextBoxes(i) = New TextBox
TextBoxes(i).Top = i * TextBoxes(i).Height
Controls.Add(TextBoxes(i))
Next