txtgettype.interactivechange code: >local ctype,cright >cright=thisform.txthideright.value >ctype=alltrim(this.value) >do case > case len(ctype)<>4 > return > case int(val(ctype))<>int(val(cright))&&Here the problem > * This.Value='' > messagebox('Wrong typing, Try Again Please!',0+16) > return > case ctype==crigh > *do... >endcase >The problem is that I vfp lose the textbox focus in the SECOND case.