Программное добавление CheckBox'а

        Dim Ctrl As CheckBox
        Dim i As Integer
        Dim point As System.Drawing.Point
        Dim schet As Integer
        Dim RE
        For i = 0 To UBound(M)
              schet += 16
              Ctrl = New CheckBox
              Ctrl.Visible = True
              Ctrl.Name = "TB" + i.ToString
              Ctrl.Text = "Выбрать все".ToString
              Ctrl.Width = 15
              Ctrl.Height = 15
              point.X = 5
              point.Y = schet
              Ctrl.Location = point
              Me.Controls.Add(Ctrl)
              RE = Me.Controls("TB0").Text.ToString 'проверяю. Ну есть же!

Private WithEvents ctr As CheckBox
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ctr = New CheckBox With {.Text = "Новая галка", .Visible = True, .Location = New Point(10, 10)}
        Me.Controls.Add(ctr)
        AddHandler ctr.Click, AddressOf ctr_click
    End Sub
    Private Sub ctr_click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ctr.Click
        MsgBox(sender.text)
    End Sub

WithEvents chekbox1 As CheckBox
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        chekbox1 = New CheckBox()
        chekbox1.Location = New Point(10, 10)
        chekbox1.Text = "Поставьте галочку"
        Me.Controls.Add(chekbox1)
    End Sub
    Private Sub checkbox1_Checked(ByVal sender As Object, ByVal e As EventArgs) Handles chekbox1.CheckedChanged
        MessageBox.Show("Состояние чекбокса изменилось")
    End Sub

'Второй способ
    Dim chekbox2 As CheckBox
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        chekbox2 = New CheckBox()
        chekbox2.Location = New Point(10, 35)
        chekbox2.Text = "Поставьте галочку2"
        Me.Controls.Add(chekbox2)
        AddHandler chekbox2.CheckedChanged, AddressOf checkbox1_Checked
        AddHandler chekbox2.CheckedChanged, AddressOf checkbox2_Checked
    End Sub
    Private Sub checkbox1_Checked(ByVal sender As Object, ByVal e As EventArgs) Handles chekbox1.CheckedChanged
        MessageBox.Show("Состояние чекбокса изменилось")
    End Sub
    Private Sub checkbox2_Checked(ByVal sender As Object, ByVal e As EventArgs)
        MessageBox.Show("Привет от второго чекбокса")
        RemoveHandler chekbox2.CheckedChanged, AddressOf checkbox1_Checked
    End Sub