Sub Initialize
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = db.CreateDocument
Call doc.ReplaceItemValue("Form", "My Form")
If db.IsDocumentLockingEnabled Then
Call doc.Save(True, False, True)
Call doc.Lock
End If
Call ws.EditDocument(True, doc)
End Sub