Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim nc As NotesNoteCollection
Dim item As NotesItem
Set db = s.CurrentDatabase
Set nc = db.CreateNoteCollection(False)
nc.SelectHelpAbout = True
Call nc.BuildCollection
nid = nc.GetFirstNoteId
Set doc = db.GetDocumentByID(nid)
Set item = doc.GetFirstItem("$Body")
Call doc.ReplaceItemValue("Body",item.Values)
Call ws.DialogBox ("MyAboutForm", False, False, False, True,False, False, "Help About Document",doc )