vb6.0动态加载自定义控件不支持调用其属性跟方法

vb6.0动态加载自定义控件不支持调用其属性和方法

Dim WithEvents suercontrol11 As VBControlExtender
Private Sub Form_Load()
    Licenses.Add "工程1.suercontrol1"
Set suercontrol11 = Controls.Add("工程1.suercontrol1", "suercontrol11")
    suercontrol11.Visible = True
End Sub
用以上方法动态加载的自定义控件，再用以下的方法捕捉其事件
Private Sub usercontrol11_ObjectEvent(Info As EventInfo) '捕捉所有事件
Select Case Info.Name
Case "click" '单击事件
'这里却不支持调用上述控件（usercontrol11）的属性和方法,否则就报错，烦请高手指点解决！
End Select
End Sub

------解决思路----------------------

Select Case Info.Name

  Case "click" '单击事件

    suercontrol11.object.a '假定suercontrol1 有个方法 a'

End Select