Procedure lstletter.KeyPress Lparameters nKeyCode, nShiftAltCtrl If Lastkey() = 13 .Or. Lastkey() = -9 nKeyCode = 13 nShiftAltCtrl = 0 Endif If nKeyCode = 13 .Or. nKeyCode = -9 Nodefault Clear Typeahead Thisform.cmdok.Click *!* Remove dodefault() from your keypress event code *!* Else *!* DoDefault() Endif Endproc