I'd do Fabio's change to the class without hesitating to do it but here would simply use a baseclass editbox.
Cetin

>Ok, more info.
>
>The EditBox class has the following code in KeyPress coming from MereMortals:
>

>LPARAMETERS nKeyCode, nShiftAltCtrl
>
>IF ISALPHA(CHR(nKeyCode))
>   NODEFAULT
>   nKeyCode=ASC(UPPER(CHR(nKeyCode)))
>   DODEFAULT()
>ENDIF

>
>First of all, should it be DODEFAULT(nKeyCode, nShiftAltCtrl)?
>
>Secondly, I put the following code in LostFocus of editbox just to test:
>
>

>this.Value = this.value
>=MESSAGEBOX(this.Value)
>RETURN DODEFAULT()

>
>The first time I tab out of the editbox, it shows empty messagebox. If I position the cursor in the Editbox and tab out again, it shows the value.