And just to add - you may move your UPPER case logic into this method as well instead of InteractiveChange, e.g.

IF between(m.nKeyCode, 97, 122) && a - z
   NODEFAULT
   nKeyCode= m.nKeyCode - 32 && a -> A
   DODEFAULT(m.nKeyCode, m.nShiftAltCtrl)
ENDIF

They key point is to have NODEFAULT in the code.

>>I am working on a new edit box class
>>It has 2 new properties:
>>1. lUpperCase - if true act as if the format is ! in text boxes... (Format='K' is the only one that works in an edit box according to help.)
>>Then in the Interactive Change event I place the following code
>>IF this.lUpperCase
>> this.Value=UPPER(this.Value)
>>ENDIF
>>
>>This seems to work ok
>>
>>Now I would also like to give the ability to hit Enter to move to the next field. Thus the second properrty lExitOnEnter
>>So to that end, In the KeyPress event I've added:
>>LPARAMETERS nKeyCode, nShiftAltCtrl
>>IF this.lExitOnEnter
>> IF nKeyCode=13
>> KEYBOARD '{TAB}'
>> ELSE
>> DODEFAULT(nKeyCode,nShiftAltCtrl)
>> ENDIF
>>ELSE
>> DODEFAULT(nKeyCode,nShiftAltCtrl)
>>ENDIF
>>
>>This has the desired effect but also has two undesired effects, one major and one minor...
>>
>>Minor one... When enter is pressed, the edit box enters the line, the cursor drops down a line in the edit box prior to moving out, and then moves out of the box as intended. Thus it is not necessarily obvious that it worked.
>>
>>Major one... Repeated characters i.e. Holding a key down causes repeated characters, as fast as you can type. I tried it with the word TEST. and I got TTEEEESSTTT as the entered value. And I was just typing normally...
>>
>>How do I get arround this one?
>>
>>TIA,
>>Mike
>
>
>Try:
>

>LPARAMETERS nKeyCode, nShiftAltCtrl
>IF nKeyCode=13 AND this.lExitOnEnter
>   NODEFAULT
>   KEYBOARD '{TAB}'
>ENDIF
>