Calendar Date Problem

Cant figure out why Im having this problem.... Have a form with two calendars on it..... at the start I have this code

Private Sub Form_Load()
Calendar2.Today
Calendar3.Today
End Sub

And then for the text box on the calendar this........

Private Sub Calendar3_Click()
EndDate.Value = Calendar3.Value
EndDate.SetFocus
Calendar3.Visible = False
End Sub
Private Sub EndDate_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Calendar3.Visible = True
Calendar3.SetFocus
If Not IsNull(StartDate) Then
Calendar3.Value = StartDate.Value
Else
Calendar3.Value = False
End If
End Sub

Now for some reason the calendar does not want to default to the current days date!!

Anyone see anything wrong?

Thanks