Private Sub AcadDocument_BeginClose()
    ' Этот пример перехватывает событие BeginClose.
    '
    ' Это событие вызвано, когда рисунок получает запрос закрытия.
    '
    ' Чтобы вызвать это событие: Закройте открытый рисунок

    MsgBox "Рисунок был только что закрыт!"
End Sub