例: QueryDragDrop event (NotesUIDatabase)

このイベントは、ハイライト表示されたフォルダ上に文書アイコンをドラッグすると、そのフォルダの名前を表示します。メッセージはステータスバー上に表示されます。

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