例: Parent property (NotesDateRange - LotusScript®)

次の Visual Basic コードは NotesDateRange オブジェクトの親ユーザー名を表示します。

Private Sub DRParent_Click()
Dim s As New NotesSession
Dim dr As NotesDateRange
s.Initialize
Set dr = s.CreateDateRange
MsgBox dr.Parent.UserName, , "Parent user name"
End Sub