我的activex控件就是无法触发ObjectEvent事件

Question

'这几天被这个问题卡死了,希望得到指教:
Option Explicit
  Dim WithEvents ctlDynamic As VBControlExtender
  
'下面这个GotFocus事件我的activex控件可以触发
Private Sub ctlDynamic_GotFocus()
MsgBox "MouseClick"
End Sub'但我的activex控件就是无法触发ObjectEvent事件
 Private Sub ctlDynamic_ObjectEvent(Info As EventInfo)
    If Info.Name = "Click" Then
        MsgBox "MouseClick"
    End If
    If Info.Name = "MouseMove" Then
        MsgBox "MouseMove"
    End If
  End Sub
    
Private Sub Form_Load()
    Licenses.Add "MSComctlLib.TreeCtrl"
    '但下面的"MSComctlLib.TreeCtrl"activex控件就能触发ObjectEvent事件
    Set ctlDynamic = Controls.Add("MSComctlLib.TreeCtrl", "myctl", Form1)
   ' 但下面我的"aaa.UserControl1"activex控件就无法触发ObjectEvent事件
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'Set ctlDynamic = Controls.Add("aaa.UserControl1", "myctl", Form1)
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ctlDynamic.Move 1, 1, 2500, 3500
    ctlDynamic.Visible = True
  End Sub
'我用了好多的方法制作activex控件,例如，控件里只有button，或picturebox但都不行,在网上看了不少网页但也没有解决,希望指教,谢谢,
'

Answer 1

我测试了一下，是可以的？
测试环境：vb6精简版+xp