WindowBeforeRightClick Event Example
This example prompts the user for a yes or no response before executing the default right-click action.
Private Sub App_WindowBeforeRightClick _
(ByVal Sel As Selection, _
Cancel As Boolean)
a = MsgBox("Selection = " & Sel & vbLf & vbLf _
& "Continue with operation on this selection?", _
vbYesNo)
If a = vbNo Then Cancel = True
End Sub