Option ExplicitDim WithEvents myControl As VBControlExtenderPrivate Sub Command1_Click()
    On Error GoTo ErrorQuit
    Call myControl.ExecuteCMD("Hello")    '就在这儿老是说对象不支持该属性和方法
ErrorQuit:
    If Err <> 0 Then MsgBox Error, vbCritical
End SubPrivate Sub Form_Load()
    'Licenses.Add "RichText.RichTextctrl.1"
    'Set myControl = Controls.Add("RichText.RichTextctrl.1", "mycontrol")
    Licenses.Add "pHC3100.HC3100"
    Set myControl = Controls.Add("pHC3100.HC3100", "mycontrol")
    myControl.Left = 0
    myControl.Width = 5000
    myControl.Visible = True
End SubPrivate Sub myControl_ObjectEvent(Info As EventInfo)
    Dim I As Integer
    Dim Str As String
    
    Select Case Info.Name
    Case "MouseDown"
        For I = 1 To Info.EventParameters.Count
            Str = Str & Info.EventParameters.Item(I - 1).Name & "/" & Info.EventParameters.Item(I - 1).Value & IIf(I = Info.EventParameters.Count, ".", ";")
        Next I
        MsgBox "I Feel MouseDown! Parameter Name/Value:" & Str
    Case Else
        '其他事件
    End Select
End Sub
如果我不是动态加载的话,则可以执行上面Command中的语句?
究竟是为什么???