一个问题

我在VB开发环境中每次加载DWG文件（OLE），CAD总是显式地打开了，尽管我已经设定其VISIBLE=False,并且更烦人的是，他还不能自己关闭，总提示一个命令还没有运行！请各位高手帮忙！
我的代码：
Set tmCAD = New AcadApplication
Dim sSet As AcadSelectionSet
tmCAD.Documents.Open "c:\123.dwg"
tmCAD.Visible = False
Set sSet = tmCAD.ActiveDocument.SelectionSets.Add("TEST")
tmCAD.ActiveDocument.SendCommand "_ai_selall" & Chr(13)

tmCAD.ActiveDocument.Export app.Path & "tempcad", "WMF", sSet
tmCAD.ActiveDocument.SelectionSets.Item("TEST").Delete
Picture1.Picture = LoadPicture(app.Path & "tempcad.wmf")
tmCAD.Documents.Close
tmCAD.Quit
set tmCAD=nothing

手动关闭CAD时出现如下提示：
AutoCAD无法关闭 C:\123.dwg,因为还有一个命令在运行，请完成该命令，然后再试！