Private Sub Button_Click(sender As Object, e As EventArgs) Handles _
  Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, _
  Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button10.Click
 
        ixi = CType(sender, Button).Text
 
        Select Case ixi
            Case 1
            ...
            Case 2
            ...
        End Select
End Sub