tried this with the same effect

WITH THISFORM.oCAL
	.LEFT		  = THIS.LEFT
	.TOP		  = THIS.TOP + 40
    .aSelectedDates = .F.
    .lMultiselect = .F.
    .AddDate(THISFORM.business.DATA.startdate)

	.VISIBLE			= .T.
	.ZORDER(0)
ENDWITH

>i am trying tu use rcsCalendar
>
>I want to pass the current data in my filed to it and then get the selected one back into the field?
>
>I added rcsCalendar to my form
>and have the followinf code
>

>
>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)
>ENDWITH
>
>

>it does not highlight the date passed in through the year/mont/datecount properties!
>Peter