次のスクリプトは、データベース内のすべてのフォームの名前を表示します。
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
formCount = 0
msgString = ""
Forall form In db.Forms
formCount = formCount + 1
msgString = msgString & Chr(10) & " " & form.Name
End Forall
Messagebox "This database has " & _
formCount & " forms:" & msgString