求救，CAD2002与VB通信问题

galaxy24

Sub Ch2_ConnectToAcad()
Dim acadApp As AcadApplication
On Error Resume Next

Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
MsgBox "Now running " + acadApp.Name + _
" version " + acadApp.Version
End Sub
这是CAD2002帮助里面提供的连接方法，可是我的vb就是连接了CAD，另外CAD2004版本我也试过，也是不行。能帮我分析一下可能会是什么原因吗？谢谢

efan2000

acadApp.Visible=true


上面的程序是连接了，但没有显示出来。

galaxy24

原来是这样，多谢了！