Using Programming Languages other than VBA

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