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