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