WITH THISFORM.oCAL .LEFT = THIS.LEFT .TOP = THIS.TOP + 40 .lMultiSelect = .F. dDate1 = THISFORM.business.DATA.startdate .iCurrentYear = YEAR(m.dDate1) .iCurrentMonth = MONTH(m.dDate1) .iSelectedDateCount = DAY(m.dDate1) .RefreshCalendar() .VISIBLE = .T. .ZORDER(0) ENDWITHit does not highlight the date passed in through the year/mont/datecount properties!