vb中外部控件的动态引入问题

Question

vb中的动态控件问题：
在不引入MSCOMCTL.OCX的情况下，
动态加入的activex控件仅能显示，
但是控件的方法和属性都不能使用，
用什么办法使控件的方法可以使用呢？
以下是实例：
Option Explicit
Dim ocxControl As ObjectPrivate Sub Form_Load()
    If Not ocxControl Is Nothing Then
        Controls.Remove "ocxControl"
    End If
    MsgBox Licenses.Add("MSComctlLib.ListViewCtrl")
    Set ocxControl = Controls.Add("MSComctlLib.ListViewCtrl", "ocxControl")
    ocxControl.Visible = True
    ocxControl.View = 3
    ocxControl.ColumnHeaders.Add , , "c1"
    ocxControl.ListItems.Add , , "a1
End Sub

Answer 1

Option Explicit
Dim WithEvents ocxControl As VBControlExtender
Private Sub Form_Load()
    If Not ocxControl Is Nothing Then
        Controls.Remove "ocxControl"
    End If
    Debug.Print Licenses.Add("MSComctlLib.ListViewCtrl")
    Set ocxControl = Controls.Add("MSComctlLib.ListViewCtrl", "ocxControl")
    ocxControl.Visible = True
    ocxControl.object.View = 3
    ocxControl.object.ColumnHeaders.Add , , "c1"
    ocxControl.object.ListItems.Add , , "a1"
End Sub你的激将法让我很生气，但是，还是生效了!