如何使用动态加载的自定义控件？

Question

现有自定义控件defOCX1,该控件包含过程 sub settext（);事件 event upddata(s as string)我希望能够动态加载此控件，参考网上搜索的资料，在测试程序中写出如下代码
 Dim WithEvents oControl As VBControlExtender
 Set oControl = Controls.Add("defocx1.ocx1", "TempOCX")我想问的是，在我的测试程序中，1、如何调用该控件的过程？2、如何截获该控件的事件？

Answer 1

Private Sub func_Test()
  Dim O As DefOCX1.OCX1
  Set O = oControl
  O.SetText ("xxx")
End SubPrivate Sub oControl_ObjectEvent(Info As EventInfo)
  Select Case Info.Name
  Case "Upddata"
   MsgBox (Info.EventParameters(0))
  Case Else
  End SelectEnd Sub

Answer 2

谢谢1楼，请教一下，VB中有没有类似.Net中 CTYPE那种用法？