Private Sub AcadDocument_BeginShortcutMenuEdit(ShortcutMenu As AutoCAD.IAcadPopupMenu, SelectionSet As AutoCAD.IAcadSelectionSet)
    ' Этот пример перехватывает начало контекстного меню, в то время как Вы находитесь в режиме редактирования.
    '
    MsgBox "Вы только что инициализировали контекстное меню в режиме редактирования! "
End Sub