[Uzvern]

Как можно автоматичски добавлять действия, например :

Код:

Public Class Form1

    Dim TabControl As New TabControl
    Dim Num As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Controls.Add(TabControl)
        Me.TabControl.Dock = DockStyle.Fill
        Me.TabControl.Multiline = True

        Do Until TabControl.TabCount = 8
            Num += 1
            TabControl.TabPages.Add("TabPage" & Num)
        Loop

        For x As Integer = 0 To TabControl.TabCount - 1
            Dim b As New Button
            TabControl.TabPages(x).Controls.Add(b)
            b.Dock = DockStyle.Bottom
            b.Name = "Button" & x + 1
            b.Text = b.Name
        Next

    End Sub
End Class

Мне необходимо сделать, чтобы при нажатии на кнопку (на каждой вкладке), вылетало сообщение с названием вкладки.