>No problem. I just took the easy way out and used the MS Date ActiveX Control. I like it.

Now after you found the most suitable solution I still want to answer your question about supressing "invalid date" message.
This is one of the ways:

*TextBox.GotFocus
ON readerror _Screen.ActiveForm.ActiveControl.Valid()

*TextBox.LostFocus
ON readerror

*TextBox.Valid
IF this.text#DTOC(CTOD(this.text))
	WAIT WINDOW TIMEOUT 2.0 ;
		"The date you entered: "+ this.text+ ", it is not a valid date. Please look at it more closely."
ENDIF
this.value=CTOD(this.text)

Good Luck