Using Programming Languages other than VBA

Private Sub AcadDocument_BeginShortcutMenuGrip(ShortcutMenu As AutoCAD.IAcadPopupMenu)
	' This example intercepts a shortcut menu start while you are in the grip mode.
	'
	MsgBox "You have just initiated a shortcut menu in grip mode!"
End Sub