次の例は、リッチテキスト段落スタイルオブジェクトに一定の間隔でタブを設定します。
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As New NotesDocument(db)
Call doc.AppendItemValue("From", session.UserName)
Call doc.AppendItemValue("Subject", _
"Meeting time changed")
Dim rtpStyle As NotesRichTextParagraphStyle
Dim pos As Long
Dim interval As Long
Set rtpStyle = session.CreateRichTextParagraphStyle
pos = RULER_ONE_INCH
interval = RULER_ONE_CENTIMETER
Call rtpStyle.SetTabs(3, pos, interval, TAB_DECIMAL)
Dim richText As New NotesRichTextItem(doc, "Body")
Call richText.AppendParagraphStyle(rtpStyle)
Call richText.AddTab(1)
Call richText.AppendText("One")
Call richText.AddTab(1)
Call richText.AppendText("Two")
Call richText.AddTab(1)
Call richText.AppendText("Three")
Call doc.Save(True, False)