请教在VB中使用VLAX模块

sieben

本人参考 张帆　郑立楷　王华杰 先生的＜AutoCAD VBA 开发精彩实例教程＞在VB中引用VLAX模块，及使用书中附的类模块，在AutoCAD 2004 和Windows XP环境下成功，但在AutoCAD 2000和Windows 98环境下不行，引用AutoCAD 2000 type library　部件我已更改过来，但Visual Lisp AtiveX module 无法更改为VL.OLB,因为我不知道怎样取消原来对VL16.OLB引用，

下面是出错的位置，错误是：Problem in loading Application

If Left(AcadApp.Version, 2) = "15" Then

Set VL = AcadApp.GetInterfaceObject("VL.Application.1")

ElseIf Left(AcadApp.Version, 2) = "16" Then

Set VL = AcadApp.GetInterfaceObject("VL.Application.16")

End If

请教我该怎么办?? 请各位帮帮忙!!

jiikoo

AutoCAD2010版本应该为
If Left(AcadApp.Version, 2) = "18" Then
Set VL = AcadApp.GetInterfaceObject("VL.Application.16")