LOTUSSCRIPT/COM/OLE CLASSES
Private Sub DTParent_Click() Dim s As New NotesSession Dim dt As NotesDateTime s.Initialize Set dt = s.CreateDateTime(Today) MsgBox dt.Parent.UserName, , "Parent user name" End Sub
See Also