提问：VB动态返回控件自身的名称

添加一个自定义函数
名称叫
Public Function GetControlName() As String
？？？？？
End Function
要求：在不使用控件数组的情况下，当在控件的中过程调用该函数时，可以返回控件自身的名称（控件的name属性）
补充问号中的过程，以完善该函数。
运行效果：
例1：
Private Sub Command1_Click()
Print GetControlName()
End Sub
此时，窗口打印出 “command1”
例2：
Private Sub Timer1_Timer()
Print GetControlName()
End Sub
此时，窗口打印出 “timer1”
例3：
Sub main()
MsgBox GetControlName()
End Sub
此时提示为： Module1