catia vb二次开发，编程问题

Dim CATIA As Object
On Error Resume Next
    Set CATIA = GetObject(, "CATIA.Application")
    If Err.Number <> 0 Then
       Set CATIA = CreateObject("CATIA.Application")
       CATIA.Visible = True
    End If
    On Error GoTo 0
这段vb程序可以启动catia，为什么我运行时候，在第二句vb警告说我外部无效过程，求解释啊

偶也在自学中，好难啊

路过。

我也在学习中。

把“Dim CATIA As Object”和“On Error GoTo 0”两句去掉试试！

同意楼上说法