Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(DirectCast(sender, Button).Name)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(Me.ActiveControl.Name) '名稱
MsgBox(Me.ActiveControl.Text) '文本
End Sub