Hope this helps
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mytop As Integer = 10
For index As Integer = 0 To 2
Dim btn As New Button
btn.Text = index.ToString
btn.Tag = "btn" & index.ToString
AddHandler btn.Click, AddressOf BtnClick
mytop += 30
btn.Top = mytop
Me.Controls.Add(btn)
Next
End Sub
Private Sub BtnClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim btn As Button = TryCast(sender, Button)
If btn.Tag = "btn0" Then
MessageBox.Show("button 1 clicked")
End If
End Sub