Private Sub AcadDocument_EndShortcutMenu(ShortcutMenu As AutoCAD.IAcadPopupMenu)
    ' Этот пример перехватывает событие EndShortcutMenu.
    '
    ' Это событие вызвано, когда пользователь закрывает контекстное меню рисунка.
    '
    ' Чтобы вызвать это событие: Нажмите правую кнопку мыши в рабочей области рисунка, дождитесь контекстное меню, которое будет показано и затем закройте контекстное меню

    MsgBox "Контекстное меню было закрыто! "
End Sub