Examples: QueryPaste event

This QueryPaste event discontinues a paste operation if the user responds no.

(Globals) (Declarations)
%INCLUDE "lsconst.lss"
Sub Querypaste(Source As Notesuiview, Continue As Variant)
  If Messagebox _
  ("Do you want to proceed with this paste operation?", _
  MB_YESNO + MB_ICONQUESTION, _
  "Paste operation") = IDNO Then
    Continue = False
  End If
End Sub