假设有一个FORM，里面有一个COMMAND按钮，现在我如何通过以下自定义的CONTROL来实现COMMAND的CLICK事件呢？

代码如下：
Private Sub Command1_Click()
MsgBox "aaa"
End Sub

Private Sub Form_Load()
Dim tObj As Control
Set tObj = Command1
'如何在这里通过tObj来实现Command1的click事件啊?
End Sub

目前我测试的办法没找到。

callbyname 只能调用类里的 函数、属性，   无法执行 方法，无法引发事件。
RaiseEvent  在窗体中，只能触发自定义事件，无法覆盖系统内置的事件。

估计你只能使用普通的方法：

public sub Click(obj as control)
select case obj.name
  case "Command1"
      calll command1_Click
  case ....
     ....
end select
end sub

好像跟我的要求还不符啊...