vb调用CAD程序的隐藏问题

suntenlin

代码如下：
    On Error Resume Next
    Set acadObj = GetObject(, "AutoCAD.Application")
    If Err Then
        Set acadObj = CreateObject("AutoCAD.Application")
        Err.Clear
    End If
    acadObj.Application.Visible = False ‘隐藏acad.exe
    
    acadObj.Quit

代码没有问题，可以实现调用acad.exe,并执行相关操作。

可是我发现每次执行完这段程序之后，再次打开acad.exe，工具栏就自动消失了。

将代码改为    acadObj.Application.Visible = True   工具栏就正常了，

可是无法达到我想在调用CAD进程时隐藏ACAD.exe界面的效果。

请问各位大虾。。。有没有办法啊？