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.