Examples: QueryDragDrop event (NotesUIDatabase)

This event displays the name of the highlighted folder when the document icon is dragged across it. The message is displayed on the status bar.

Sub Querydragdrop(Source As Notesuidatabase, _
Entryname As Variant, Continue As Variant)
  Print "Moving document(s) to " ; EntryName; " folder"
End Sub