Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim r As New Random
        Label1.Text = r.Next(1, 30)
 
        Dim Name1 As String
        Dim Name2 As String
        Dim Name3 As String
        Dim Name4 As String
        Dim Name5 As String
        Dim Name6 As String
        Dim Name7 As String
        Dim Name8 As String
        Dim Name9 As String
        Dim Name10 As String
        Dim Name11 As String
        Dim Name12 As String
        Dim Name13 As String
        Dim Name14 As String
        Dim Name15 As String
        Dim Name16 As String
        Dim Name17 As String
        Dim Name18 As String
        Dim Name19 As String
        Dim Name20 As String
        Dim Name21 As String
        Dim Name22 As String
        Dim Name23 As String
        Dim Name24 As String
        Dim Name25 As String
        Dim Name26 As String
        Dim Name27 As String
        Dim Name28 As String
        Dim Name29 As String
        Dim Name30 As String
 
        txt_Name1.Text = Name1
        txt_Name2.Text = Name2
        txt_Name3.Text = Name3
        txt_Name4.Text = Name4
        txt_Name5.Text = Name5
        txt_Name6.Text = Name6
        txt_Name7.Text = Name7
        txt_Name8.Text = Name8
        txt_Name9.Text = Name9
        txt_Name10.Text = Name10
        txt_Name11.Text = Name11
        txt_Name12.Text = Name12
        txt_Name13.Text = Name13
        txt_Name14.Text = Name14
        txt_Name15.Text = Name15
        txt_Name16.Text = Name16
        txt_Name17.Text = Name17
        txt_Name18.Text = Name18
        txt_Name19.Text = Name19
        txt_Name20.Text = Name20
        txt_Name21.Text = Name21
        txt_Name22.Text = Name22
        txt_Name23.Text = Name23
        txt_Name24.Text = Name24
        txt_Name25.Text = Name25
        txt_Name26.Text = Name26
        txt_Name27.Text = Name27
        txt_Name28.Text = Name28
        txt_Name29.Text = Name29
        txt_Name30.Text = Name30
 
 
        If Label1.Text = "1" Then
            TextBox1.Text = Name1
        ElseIf Label1.Text = "2" Then
            TextBox1.Text = Name2
        ElseIf Label1.Text = "3" Then
            TextBox1.Text = Name3
        ElseIf Label1.Text = "4" Then
            TextBox1.Text = Name4
        ElseIf Label1.Text = "5" Then
            TextBox1.Text = Name5
        ElseIf Label1.Text = "6" Then
            TextBox1.Text = Name6
        ElseIf Label1.Text = "7" Then
            TextBox1.Text = Name7
        ElseIf Label1.Text = "8" Then
            TextBox1.Text = Name8
        ElseIf Label1.Text = "9" Then
            TextBox1.Text = Name9
        ElseIf Label1.Text = "10" Then
            TextBox1.Text = Name10
        ElseIf Label1.Text = "11" Then
            TextBox1.Text = Name11
        ElseIf Label1.Text = "12" Then
            TextBox1.Text = Name12
        ElseIf Label1.Text = "13" Then
            TextBox1.Text = Name13
        ElseIf Label1.Text = "14" Then
            TextBox1.Text = Name14
        ElseIf Label1.Text = "15" Then
            TextBox1.Text = Name15
        ElseIf Label1.Text = "16" Then
            TextBox1.Text = Name16
        ElseIf Label1.Text = "17" Then
            TextBox1.Text = Name17
        ElseIf Label1.Text = "18" Then
            TextBox1.Text = Name18
        ElseIf Label1.Text = "19" Then
            TextBox1.Text = Name19
        ElseIf Label1.Text = "20" Then
            TextBox1.Text = Name20
        ElseIf Label1.Text = "21" Then
            TextBox1.Text = Name21
        ElseIf Label1.Text = "22" Then
            TextBox1.Text = Name22
        ElseIf Label1.Text = "23" Then
            TextBox1.Text = Name23
        ElseIf Label1.Text = "24" Then
            TextBox1.Text = Name24
        ElseIf Label1.Text = "25" Then
            TextBox1.Text = Name25
        ElseIf Label1.Text = "26" Then
            TextBox1.Text = Name26
        ElseIf Label1.Text = "27" Then
            TextBox1.Text = Name27
        ElseIf Label1.Text = "28" Then
            TextBox1.Text = Name28
        ElseIf Label1.Text = "29" Then
            TextBox1.Text = Name29
        ElseIf Label1.Text = "30" Then
            TextBox1.Text = Name30
        End If
 
    End Sub
 
End Class

Public Class frmRandomName
 
    Dim dtname As New DataTable
 
    Dim dgv As New DataGridView With _
       {.Parent = Me, .Height = 380, .Width = 400}
 
    Dim WithEvents btnRandomname As New Button With _
       {.Parent = Me, .Top = 400, .Width = 400, .Text = "Zufälliger Name"}
 
    Dim txtRandomName As New TextBox With {.Parent = Me, .Top = 450}
 
    Dim rndm As New Random 'Random-objekt nur einmal erstellen !!!
 
 
 
    Private Sub frmRandomName_Load(sender As System.Object, _
            e As System.EventArgs) Handles MyBase.Load
 
        Me.Height = 500
        Me.Width = 420
 
        dtname.Columns.Add("Name")
        With dtname.Rows
            'Einige Beispiel-Namen
            .Add("Schneider") : .Add("Müller") : .Add("Meyer") 
            .Add("Kowalski")
            .Add("Hinz") : .Add("Kunz") : .Add("Weber")
        End With
 
        'Datenbindung der Namenstabelle an das Control 
        'für die Anzeige
        dgv.DataSource = dtname
 
    End Sub
 
 
    Private Sub btnRandomname_Click(sender As Object, _
        e As System.EventArgs) Handles btnRandomname.Click
 
        Dim index As Integer = rndm.Next(0, dtname.Rows.Count)
 
        'Übertragung eines zufälligen Namens in die Textbox
        txtRandomName.Text = dtname.Rows(index).Item("Name").ToString
    End Sub
 
End Class

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