[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