Button1.Initialize("Buttons")
Button1.Tag = 1
Button2.Initialize("Buttons")
Button2.Tag = 2
Button3.Initialize("Buttons")
Button3.Tag = 3
'
'
Sub Buttons_Click
Dim btn As Button
btn = Sender
Select btn.Tag
Case "1"
' code for Button1
Case "2"
' code for Button2
Case "3"
' code for Button3
End Select
End Sub