>>618
Private Sub ButtonA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
MsgBox("こんなやりかたもあるんやねぇ。")
End Sub