You can use the "specialType" field of the NotesItem type:
Dim variableName As New NotesItem( notesDocument, name$, value [,specialType%])
Dim TAuthor As New NotesItem(doc, "Author", Auths, AUTHORS) TAuthor.IsSummary = True