codice:
Private Sub Button1_CLick(byVal.....) handles Button1_Click, Button2_Click, Button3_Click, ... ButtonN_Click

...
...
...

End Sub