* I have noticed {ENTER} behavior that just don't seem right! The 
* attached form has two text boxes. Using tab to navigate at first,
* Change the value in the top text box and press {Enter}. Back tab
* to the text, and press enter. Note the value changes to 0. Now,
* backtab, change to a non zero value and [forward] tab. Back and
* forward tab again. The value DOES NOT change to zero.

* Note: VFP 8 Help does not list the "Z" format option for
* textboxes. Spinners do have "Z". I use it in textboxes anyway
* and it works. Even with "Z", {Enter), after changing the value
* will still zero it out

* Is this "expected behavior"? Is there a way to avoid it?

* Enter Key Zeros Out Console
ON ERROR do prgError
PUBLIC frmEnter
frmEnter=CREATEOBJECT('clsForm')
WITH frmEnter
.addobject('TopLabel','clsLabel')
.toplabel.top=10
.toplabel.caption=[Top]
.addobject('TopText','clsTextBox')
.toptext.top=10
.addobject('BotLabel','clsLabel')
.Botlabel.top=40
.Botlabel.caption=[Bot]
.addobject('BotText','clsTextBox')
.Bottext.top=40
.SHOW
ENDWITH 
READ events
CANCEL

DEFINE CLASS clsForm as Form
caption=[Enter key will Zero "changed" value]
visible=.t.
PROCEDURE release
this.QueryUnload
ENDPROC 
PROCEDURE queryunload
CLEAR EVENTS
ENDPROC
ENDDEFINE 

DEFINE CLASS clsTextBox as TextBox
width=100
format="RZ"
inputmask="9999999.99"
left=100
visible=.t.
value=0
ENDDEFINE 

DEFINE CLASS clsLabel AS LABEL
WIDTH=100
LEFT=0
VISIBLE=.T.
ENDDEFINE

PROCEDURE prgError
ON ERROR 
MESSAGEBOX([Error])
ON ERROR do prgError
ENDPROC 
* End of Enter Key COnsolde