例: FreeLookupBuffer method

このボタンは検索バッファを解放します。このボタンが含まれるフォームには、検索を実行する別のボタンが含まれています。

Dim session As NotesSession
Dim directory As NotesDirectory
Sub Initialize
	Set session = New NotesSession
	Set directory = session.GetDirectory("")
End Sub

Sub Click(Source As Button)
	Call directory.FreeLookupBuffer()
End Sub