После закрытия ADT2005 остается процесс acad.exe

1)В чертеже, в котором есть объект ADT и объект автокада(например AecArea и Line)запускается на выполнение код (взят из Help'a ADT и немного изменен), который выводит сообщение об имени выбранных объектов:
Public Sub List_Aec_Objects_In_Modelspace()
  Dim obj As AcadObject
  Dim selset As AcadSelectionSet
  Set selset = ThisDrawing.SelectionSets.Add("allobj")
  selset.SelectOnScreen
  If selset.Count = 0 Then Exit Sub
  For Each obj In selset
     ' Only list the object if it is an AEC entity
     If TypeOf obj Is AecEntity Then
        msg = msg & "  " & obj.ObjectName & vbCrLf
     End If
  Next
  MsgBox (msg)
  ThisDrawing.SelectionSets.Item("allobj").Delete
  Set selset = Nothing
End Sub
2) выбираем AecArea и Line- получаем сообщение "AecDbArea"
3)Закрываем ADT.
3)В диспетчере задач остается процесс acad.exe
4)Если же выбрать только объект автокада (Line), то после закрытия ADT все в порядке - процесс acad.exe исчезает.
Как устранить эту проблему?