Sub CmdEvents_Click()
   MsgBox "Hello World"
End Sub

Sub CmdEvents_Click()
Dim mvCtrl As Control
Set mvCtrl = Me.ActiveControl
MsgBox mvCtrl.Name
End Sub