****INIT**** rdttime = DATETIME() Local array state1(1) state1(1)= .F. thisformset.calendar._olecalendar1.GetDayBold(TTOD(rdttime), 1, @state1) ****GETDAYBOLD**** *** ActiveX Control Event *** LPARAMETERS startdate, count, state FOR i=1 TO count state(i) = .T. startdate = startdate + 1 ENDFOR this.refreshI don't get any errors but nothing is bold either. Maybe you can see what I am doing wrong.