Dim i, h As Integer
        Dim tb As TextBox
        Dim tbs As New List(Of TextBox)
 
        For i = 1 To 5
            tb = New TextBox
            tb.Top = 50 + h
            h += tb.Height + 10
            tb.Left = 22
            tb.Name = "TextBox" & i.ToString()
            tbs.Add(tb)
        Next
        Me.Controls.AddRange(tbs.ToArray())

        Dim tb2 As TextBox = Me.Controls("TextBox2")
        tb2.Text = "I'm Number 2!"

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov