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

public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
            string[] dir = System.IO.Directory.GetDirectories(@"c:\");
            Label[] label = new Label[dir.Length];
            for (int i = 0; i < label.Length; i++ )
            {
                label[i] = new Label();
                label[i].Text = dir[i];
                label[i].Click += label_Click;
                label[i].Top = i * label[i].Height;
                
            }
            this.Controls.AddRange(label);
         }

       

        private void label_Click(object sender, EventArgs e)
        {
            MessageBox.Show(((Label)sender).Text);
        }
    }

Public Class Form1

    Dim PicArray(30) As PictureBox
    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
            AddPic()
        Next
    End Sub
    Private Sub AddPic()
        ' Suspend the form layout and add two buttons.
        Me.SuspendLayout()
        Dim picture As New PictureBox()
        picture.Location = New Point(10 + (i - 1) * 300, 10)
        picture.Size = New Size(75, 25)
        picture.BackColor = Color.Black
        'button.Text = "OK" & Str(i)
        AddHandler picture.Click, AddressOf PicAll_Click
        Me.Controls.AddRange(New Control() {picture})
        Me.ResumeLayout()
        PicArray(i) = picture
    End Sub

    Private Sub PicAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Click
        If PicArray(1).Capture = True Then
            MsgBox(1)
        End If
    End Sub
End Class