RISOLTO!

codice:
Private Sub AllButtonsClick (ByVal sender As Object, ByVal e As EventArgs) Handles ...
If sender Is Button1 Then
...
ElseIf sender Is Button2 Then
...
ElseIf sender Is Button3 Then
...
Else
...
End If
End Sub