Private Sub AcadDocument_SelectionChanged()
    ' Этот пример перехватывает событие SelectionChanged.
    '
    ' Это событие вызвано, когда текущий набор выбора в рисунке изменяется.
    '
    ' Чтобы вызвать это событие: Выберите или снимите выделение объектов в любом открытом рисунке

    MsgBox "Набор выбора в рисунке был изменен! "
End Sub