Perhaps you could provide a shortcut menu to execute a command like: _Screen.ActiveForm.SetTheDate()

...In SetTheDate()

WITH ThisForm.txtUsersDate
.VALUE = DATE()
.VISIBLE = .T.
.SETFOCUS()
ENDWITH
RETURN

... In ThisForm.txtUsersDate.Valid()
WITH ThisForm.edtEditBox
.VALUE = STUFF(.VALUE, .SELSTART,0, DTOC(THIS.VALUE))
.REFRESH()
.SETFOCUS()
ENDWITH


...Let me know what you think of my suggestion, I hope it is usefull.