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

End Sub