LOTUSSCRIPT/COM/OLE CLASSES
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
See Also