VB要做到真正继承是没有办法的,而且COM对象也只提供接口,不过你可以用包装的方法:Dim objOCX As 别人的OCX对象Private Sub UserControl_Initialize() Set objOCX=New 别人的OCX对象 End SubPrivate Sub UserControl_Terminate() Set objOCX=Nothing End SubPublic Property Set/Let 和OCX对象一样的属性名称 As 和OCX对象属性一样的数据类型和OCX对象一样的属性名称=objOCX. 和OCX对象一样的属性名称 End Porperty 其它函数或属性类似。
Set objOCX=New 别人的OCX对象
End SubPrivate Sub UserControl_Terminate()
Set objOCX=Nothing
End SubPublic Property Set/Let 和OCX对象一样的属性名称 As 和OCX对象属性一样的数据类型和OCX对象一样的属性名称=objOCX. 和OCX对象一样的属性名称
End Porperty 其它函数或属性类似。