例: Aliases property (NotesForm class)

次のスクリプトは指定されたフォームのすべての別名を表示します。

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
formNameIn = Lcase(Inputbox("Name of form?"))
Forall form In db.Forms
  If Lcase(form.Name) = formNameIn Then
    If Isempty(form.Aliases) Then
      Messagebox form.Name & " has no aliases"
    Else
      aliazCount = 0
      msgString = ""
      Forall aliaz In form.Aliases
        aliazCount = aliazCount + 1
        msgString = msgString & Chr(10) & _
        "     " & aliaz
      End Forall
      Messagebox form.Name & " has " & _
      aliazCount & _
      " alias(es):" & Chr(10) & msgString
    End If
    Exit Sub
  End If
End Forall
Messagebox "The form """ & formNameIn & """ does not exist"