Выполнить функцию при нажатии программно созданной кнопки - Visual Basic .NET

Imports System.IO
 
Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
        TabPage1.Text = "Кнопки"
        TabPage2.Text = "Тексты"
        Dim i, j, x, y, ширина As Integer
 
        'считывание текстов в лэйблы
        i = 1
        x = 10
        y = 20
        ширина = 290
        For Each line As String In File.ReadLines("texts.ini")
            ' Для двух столбцов
            If i Mod 6 = 0 Then
                x = x + ширина
                y = 20
            End If
 
            Dim Lb As New Label With {.Top = y, .Left = x, .Text = line, .BorderStyle = BorderStyle.FixedSingle, .Width = ширина, .Name = "Label" & i}
            Me.Controls.Add(Lb)
            Lb.Parent = TabPage2
            
            y = y + 30
            i = i + 1
            'MessageBox.Show(Lb.Name)
        Next
        TabControl1.Height = y + 30
        TabControl1.Width = (i / 6) * ширина + 80
        Me.Width = TabControl1.Width
 
        'Создание кнопок и считывание их имен
        j = 1
        x = 10
        y = 20
        For Each line As String In File.ReadLines("names.ini")
            ' Для двух столбцов
            If j Mod 6 = 0 Then
                x = x + 100
                y = 20
            End If
 
            Dim Bt As New Button With {.Top = y, .Left = x, .Text = line, .Width = 80, .Name = "Button" & j}
            Me.Controls.Add(Bt)
            'AddHandler Bt.Click, AddressOf Button1_Click
            Bt.Parent = TabPage1
            y = y + 30
            j = j + 1
            'MessageBox.Show(Bt.Name)
        Next
 
        If i <> j Then
            'MessageBox.Show("Ахтунг!" & vbCr & "Число кнопок: " & j & vbCr & "Число записей: " & i)
        End If
 
    End Sub
 
    'Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    '    Clipboard.Clear()
    '    Clipboard.SetText(Label1.Text)
    'End Sub

End Class