I am using a calendar in a vba form in Excel (the mscal.ocx activex
control). My goal is to set the calendar up so that only a change in
the the month and year drop down boxes are required in order for the
date to be transferred to its text box on the form. I have made it
work; however, if I try to change the date again from the calendar,
the text box goes blank and will not re-populate with the calendar
date unless I either expand the calendar back out and click on one of
the date buttons, or if I close the form and then re-open it.

Does anyone here have experience with this type of thing?


Here's the code I'm using:
=============


Private Sub Calendar1_NewMonth()
Calendar1_Click
End Sub

Private Sub Calendar1_NewYear()
Calendar1_Click
End Sub

Private Sub Calendar1_Click()
Calendar1.Day = 1
frmCourseBooking.txtDateTaken.Value = frmCourseBooking.Calendar1.Value
End Sub