VB调用CAD问题

cgchbsz

Private Sub Form_Load()
    On Error Resume Next
    Me.Hide
    '获得正在运行的AutoCAD对象
      Set acadApp = GetObject(, "AutoCAD.Application.16")
      If Err Then
             Err.Clear
           '‘创建一个新的AUTOCAD应用程序对象
             Set acadApp = CreateObject("AutoCAD.Application.16")
         If Err Then
             MsgBox "不能运行AutoCAD,请检查是否安装！"
             Me.Show
             Exit Sub
         End If
      End If
  Me.Show
    
    acadApp.Visible = True
    acadApp.WindowState = acMax
End Sub

问题是:开机第一次运行的时候,总是回出现"部件要求挂起"  有切换/重试选项

仅仅是开机第一次

第二次就不会出现了

请大家帮忙分析下