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