Private Sub AcadDocument_Deactivate()
    ' Этот пример перехватывает событие DeActivate.
    '
    ' Это событие вызвано, когда окно рисунка освобождает фокус.
    '
    ' Чтобы вызвать это событие: Откройте два рисунка и переключите окно рисунка от одного к другому

    MsgBox "Вы только что дезактивировали рисунок! "
End Sub