以下代码可以打开CAD程序，但打不开图纸文档，请帮看看哪里有问题？PrivateSubButton2_Click(senderAsObject, eAsEventArgs)HandlesButton2.Click
DimAcadAppAsAutodesk.AutoCAD.Interop.AcadApplication
DimAcadDocAsAutodesk.AutoCAD.Interop.AcadDocument
OnErrorResumeNext
AcadApp = GetObject(,"AutoCAD.Application")
IfErr.NumberThen
Err.Clear()
AcadApp = CreateObject("AutoCAD.Application")
IfErr.NumberThen
MsgBox("Con not Get or Create AutoCAD Object! Please check whether the AutoCAD has installed.")
EndIf
EndIf
AcadApp.Visible =True
AcadApp.Documents.Open("D:\stmal\drawing1.dwg")
EndSub

先把on error那行代码去掉再说