I designed a Scheduler on a form. On my calendar control I show some days with bold fonts. I use the next lines of codes (Init Event):

FOR i = 1 TO 42
SEEK CTOD(SUBSTR(TTOC(Thisform.Olecalendar.Object.Visibledays(i)),1,10))
IF FOUND()
Thisform.OleCalendar.Object.DayBold(ttoc(Thisform.OleCalendar.Object(i))) = .t.
ENDIF

ENDFOR

This work fine, but when I change the month and back again this does not work.

Thanks