[Admiral]

Smile, например можно повесить все кнопки на один обработчик, а там проверять, что за кнопка нажата.

Код:

For i = 1 To 3
'...
    AddHandler DynamicButton(i).Click, AddressOf DynamicButton_Click
Next
'...
Private Sub DynamicButton_Click(ByVal Obj As Object, ByVal eventArgs As EventArgs)
    Dim CurButton As Button = Obj
    ' В идеале должны получить имя кнопки здесь
    ' Dim ButtonName As String = CurButton.Name
    ' Но увы там пусто, так что немного по другому, 
    ' определяем нажатую кнопку
    Select Case (CurButton.Location.X / 10)
        Case 1
            MsgBox("Привет, кнопка № 1", MsgBoxStyle.Information, "Нажата кнопка")
        Case 2
            MsgBox("Привет, кнопка № 2", MsgBoxStyle.Information, "Нажата кнопка")
        Case 3
            MsgBox("Привет, кнопка № 3", MsgBoxStyle.Information, "Нажата кнопка")
        Case Else
            MsgBox("Привет, неизвестная кнопка", MsgBoxStyle.Information, "Нажата кнопка")
    End Select
End Sub