Vista - Calendar Controls

I am desperately needing some help with a calendar in my database. I have a
subform that I have created and needed to add a calendar so that our
Superintendents could pick a date instead of typing it. I want the calendar
to disappear after entering the date but when I enter the second part of the
equation, I can't enter a date at all. But if I leave the first part of the
code the calendar won't disappear after entering the date. Can someone
please tell me what I'm doing wrong.
Private Sub cbodate_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
ocxcalendar.Visible = True
ocxcalendar.SetFocus
If Not IsNull(cbodate) Then
ocxcalendar.Value = cbodate.Value
Else
ocxcalendar.Value = Date
End If
End Sub

Private Sub ocxcalendar_Click()
cbodate.Value = ocxcalendar.Value
cbodate.SetFocus
ocxcalendar.Visible = False
End Sub


Thanks so much for any help you can give