Thanks, Lagbolt. Unfortunately, that didn't work. I'm still trying!
I'll add that this is the coding I'm using for the calendar selection.
Private Sub Date2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Set cboVariablebox = Date2
ocxCalendar.Visible =...