Examples: IsSubForm property (NotesForm - LotusScript®)

This script displays the names of all the subforms in a database.

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
formCount = 0
msgString = ""
Forall form In db.Forms
  If form.IsSubForm Then
    formCount = formCount + 1
    msgString = msgString & Chr(10) _
    & "     " & form.Name
  End If
End Forall
If formCount > 0 Then
  Messagebox "This database has " & formCount _
  & " subform(s):" & msgString
Else
  Messagebox "This database has not subforms"
End If