cad2008调用vlax和curve

llikk_love

Private Sub Class_Initialize()
    '根据AutoCAD的版本判断使用的库类型
    If Left(ThisDrawing.Application.Version, 2) = "15" Then
        Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.15")
    ElseIf Left(ThisDrawing.Application.Version, 2) = "17" Then
        Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.17")
   
   
    End If
   
    Set VLF = VL.ActiveDocument.Functions
End Sub

将16改成17或者17.1都不行，请问下各位达人，改怎么改装下程序，才能使08的调用vlax和curve类。