codice:
Private Sub Buttons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click, btn2.Click, btn3.Click 'eccetera
DirectCast(sender,Button).Enabled=False
End Sub