Dim LabelArray1(30) As Label
    Dim LabelArray2(30) As Label
    Dim TextArray(30) As TextBox
    Dim TextArray1(30) As TextBox
    Dim TextArray2(30) As TextBox
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label2.Text = ""
        TextBox1.Text = ""
        LabelArray(1) = Label3
        LabelArray(2) = Label4
        ..........
       End Sub

  Dim LabelArray(30) As Button
    Dim i As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Me.i = 1 To 2
            AddButtons()
        Next
    End Sub
    Private Sub AddButtons()
        ' Suspend the form layout and add two buttons.
        Me.SuspendLayout()
        Dim button As New Button()
        button.Location = New Point(10 + (i - 1) * 300, 10)
        button.Size = New Size(75, 25)
        button.Text = "OK" & Str(i)
        Me.Controls.AddRange(New Control() {button})
        Me.ResumeLayout()
        LabelArray(i) = button
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        LabelArray(1).Text = "Кнопка1"
        LabelArray(2).Text = "Кнопка2"
    End Sub