本人用如下语句想在vb。net2008中启动，可是启动不了，总说找不到
请各位高手帮我看看语句有什么问题，是不是08版的跟02版的语法有变化？
Sub 连接AutoCAD()
On Error Resume Next
Acadapp = GetObject(, "AutoCAD.Application")
If Err.Number Then
Err.Clear()
Acadapp = CreateObject("AutoCAD.Application")
If Err.Number Then
MsgBox("不能运行AutoCAD,请检查是否安装了AutoCAD")
Exit Sub
End If
End If
Acadapp.Visible = True '界面可视
Acadapp.WindowState = AutoCAD.AcWindowState.acMax '界面最大化
AppActivate(Acadapp.Caption) '显示AutoCAD界面
End Sub
置顶卡
