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