例: Remove method (NotesForm - LotusScript®)

次のスクリプトはデータベースからフォームを削除します。

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 Messagebox("Do you really want to delete " _
    & form.Name & "?", _
    4 + 32) = 6 Then
      Messagebox form.Name & " removed"
      Call form.Remove()
    Else
      Messagebox form.Name & " not removed"
    End If
    Exit Sub
  End If
End Forall
Messagebox "The form """ & formNameIn & """ does not exist"