>Please try to paste the following code if error occur??
>The Editor claim there is a syntax error.
>
>

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

>

---

>But no error on following code:
>

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

>
>This is totally strange because other function for Thisform.D has no problem but Move() got problem.
>
>Of cos, if I change the coding without using With..EndWith
>Everything alright!!
>
>So, I want to know is it an Editor error when Move() Statement is inside With..EndWith Block!!
>
>if so, I will avoid to use any With..EndWith Block!
>
>Thanks for attention!
Justok,
It's "D" causing problem. Up to "K" you should avoid one char names. Because coming from old FP up to "J" they are also workareas 1-10.
Cetin