Accessing a calendar control on a sub form

[lintonra]

I have a Main form with a calendar control that is referenced from a
combo box, the calendar control is not visibile until the user selects
the combo box. The code is listed below:

Private Sub Calendar6_Click()
DateInitiated.Value = Calendar6.Value
DateInitiated.SetFocus
Calendar6.Visible = False
End Sub


Private Sub DateInitiated_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
Set cboOriginator = DateInitiated
Calendar6.Visible = True
Calendar6.SetFocus

If Not IsNull(cboOriginator) Then
Calendar6.Value = cboOriginator.Value
Else
Calendar6.Value = Date
End If
End Sub

I have a subform that i would like to call another calendar control to
populae another date field. The intention is that the combo box has its
own calendar control. However when ever i select the combo box on the
subform i get the following error:

Run-time error '2110':
Microsoft Office Access can't move the focus to the control Calendar3

Any help would be appreciated.