Examples: QueryDragDrop event (NotesUIView)

This QueryDragDrop event continues the drag and drop operation if the user approves of the start and end times for the calendar view entry.

(Globals) (Declarations)
%INCLUDE "lsconst.lss"
Sub Querydragdrop(Source As Notesuiview, Continue As Variant)
  If Messagebox (Source.CalendarDateTime & Chr(13) & _
  Source.CalendarDateTimeEnd, _
  MB_YESNO + MB_ICONQUESTION, _
  "Are these start and end times OK") = IDYES Then
    Continue = True
  Else
    Continue = False
  End If
End Sub