>

>WITH THISFORM
>IF !PEMSTATUS(THISFORM, [D], 5)
>	.ADDOBJECT([D], [TXTDATE])
>	.D.MOVE(250,350) && This line got error
>	.D.BORDERSTYLE = 1
>	.D.SPECIALEFFECT = 0
>	.D.VALUE = DATE()
>	.D.CONTROLSOURCE = _DIARYDATE
>	.D.VISIBLE = .T.
>endif
>endwith
>

Jusatok,

I simply changed the name of the textbox to Diary and then there was no more error. BYW, naming things with a single letter is not a good idea as single letters are often used by fox as default alias names when the table name canot be used for some reason.