Private Sub Button_Click(Sender as Object, e as Eventargs) Handles _
  Button1.click, Button2.Click, etc.
Dim btn as Button = ctype(sender, Button)
Select case btn.Name ' oder btn.Text
    Case "Button1"
    Case "Button2"
End Case