Hi all
I have textbox (name txtgettype) with the following code in 'interactivechange'.

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.
Help please (remember that I dont lose the focus in the first case only in the second).