with This.Parent.oleCalendar.Object .Month = Month(This.Value) .Day = Day(This.Value) .Year = Year(this.Value) endwith