Public Class frmRandomName2
 
    Dim tbolst As New List(Of TextBox)
 
    Dim WithEvents btn As New Button With {.Parent = Me, .Top = 400}
    Dim tboRandom As New TextBox With {.Parent = Me, .Top = 450}
 
    Dim rndm As New Random
 
    Private Sub frmRandomName2_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.Width = 420
        Me.Height = 500
 
        Dim w As Integer = 200
        Dim h As Integer = 25
        Dim c As Integer = 0
 
        For k As Integer = 1 To 2
            For i As Integer = 1 To 15
                c += 1
                Dim l As Integer = (k - 1) * w
                Dim tbo As New TextBox With _
                    {.Parent = Me, .Left = l, .Width = w, .Top = (i - 1) * h}
                tbolst.Add(tbo)
 
                'als name
                tbo.Text = ChrW(64 + c)
            Next i
        Next k
    End Sub
 
 
    Private Sub btn_Click(sender As Object, _
        e As System.EventArgs) Handles btn.Click
 
        Dim index As Integer = rndm.Next(0, tbolst.Count)
        tboRandom.Text = tbolst(index).Text
    End Sub
End Class