How do i fit this in the code i use today?
Or shall i remove the access calendar?
Private Sub Datumtest_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Unhide the calendar and give it the focus
ocxCalendar.Visible = True
ocxCalendar.SetFocus
' Match...