[Admiral]

Smile, в простейшем случаи код обработчика уже должен быть написан. А создание за малым.

Код:

Dim DynamicButton As New Button
With DynamicButton
     .Parent = Me
     .Location = New Point(10, 10)
     .Size = New Size(150, 40)
     .Text = "Динамически созданная кнопка"
End With
AddHandler DynamicButton.Click, AddressOf DynamicButton_Click 'Или другое имя обработчика

'... 

Private Sub DynamicButton_Click(ByVal Obj As Object, ByVal eventArgs As EventArgs)
'... обрабатываем
End sub

[Smile]

А вот как сделать обработчик если у нас массив этих кнопок???

Код:

 
Dim i As Integer 
Dim DynamicButton(3) As Button
For i = 1 To 3 
 DynamicButton(i) = New Button
 With DynamicButton(i) 
    .Parent = Me    
    .Location = New Point(10 * i, 10 * i)  
    .Size = New Size(40, 40) 
    .Text = ""   
End With          
Next

[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