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.