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!