vb加载cad问题

yulijin608

Dim AcadApp as Object '定义一个对象
　　On Error Resume Next
　　Set AcadApp =GetObject(,"AutoCAD.Application")
　　If Err Then '如果没有一个AutoCAD副本在运行
　　Err.Clear
　　Set AcadApp =CreateObject("AutoCAD.Application")
　　AcadApp.Visable =True '启动一个AutoCAD副本并设为可见
　　If Err Then
　　MsgBox Err.Description '如果失败，给出错误提示
　　Exit Sub
　　End If
　　End If
用上面的代码加载CAD时怎么运行到AcadApp.Visable =True 时出错，提示对象不支持该属性和方法。

fenny

是visible

yulijin608

谢谢,都是笔误惹的祸.