On the userform where you have attche the calendar simply input the code below.

[VBA]
Private Sub UserForm_Initialize()
ocxCalendar.Value = Now()
End Sub

[/VBA]