次の Visual Basic コードは NotesRichTextStyle オブジェクトの親セッションの UserName プロパティを表示します。
Private Sub ParentRTS_Click()
Dim s As New NotesSession
Dim r As NotesRichTextStyle
s.Initialize
Set r = s.CreateRichTextStyle
MsgBox r.Parent.UserName, , "Parent user name"
End Sub