虽然已经没有了控件数组的概念,可是也有办法解决之
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
Dim button As Button
button = CType(sender, Button)
If button.Name = "Button1" Then
MsgBox("A")
Else
MsgBox("B")
End If
End Sub