object.Events
Contains the calendar events. This value can be manually modified.
Note: The value of this property can be also modified in Before Show event.
The following example shows how to add new event.
Dim CustomEvent, CustomEventDateTime Set CustomEvent = New clsEventCalendar1 CustomEventDateTime = DateSerial(2005, 10, 31) CustomEvent.EventTime = TimeSerial(12, 30, 0) CustomEvent.EventDescription = "Some text" AddEvent CustomEventDateTime, CustomEvent