WindowBeforeDoubleClick Event Example

This example prompts the user for a yes or no response before executing the default double-click action.

Private Sub App_WindowBeforeDoubleClick _
        (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