catia vb二次开发生成填充曲面问题

求VB 6.0编写CATIA以三条曲线为边界生成填充曲面的代码，《CATIA二次开发技术基础》中介绍的方法不能运行：
Dim oFill As HybridShapeFill
Dim FillEdge1 As HybridShapeFillEdge '自动选择中没有HybridShapeFillEdge的选项
Dim FillEdge2 As HybridShapeFillEdge
Dim FillEdge3 As HybridShapeFillEdge

Set FillEdge1 = oHSF.AddNewFillEdge(refCurve1, 0, 0)
Set FillEdge2 = oHSF.AddNewFillEdge(refCurve2, 0, 0)
Set FillEdge3 = oHSF.AddNewFillEdge(refCurve3, 0, 0)

oFill.AddFillEdge FillEdge1 ‘实时错误“438”：对象不支持该属性或方法
oFill.AddFillEdge FillEdge2
oFill.AddFillEdge FillEdge3

oHBody.AppendHybridShape oFill
求高手指点！万分感谢！
vb CATIA 填充曲面 --------------------编程问答-------------------- 你使用错了地方，此处你没有在VB 6.0获取到catia的APPLICATION对象，所以你无法操作
   《CATIA二次开发技术基础》这本书是在CATIA的环境中使用的

补充：VB ,  基础类