>Dear Experts
>
>I want to fill up text1 with following method
>If I write B in text1 then should display BILL and so on.
>And cursor must remain in text1 and should go to the end of the word.
>
>I wrote following codes that work fine on the lostfocus of text1.
>But I do not want to use lostfocus.
>
>Please help
>

>case1=alltrim(thisform.text1.value)
>DO case
>CASE case1="B"
>	this.VALUE=alltrim("BILL")
>CASE case1="S"
>	this.VALUE=alltrim("BILLS")
>CASE case1="Q"
>	this.VALUE=alltrim("CHEQUE # ")
>ENDCASE
>

* on interactivechange

case1=alltrim(thisform.text1.value)
DO case
case len(m.case1)>1
  return 
CASE case1=="B"
	this.VALUE="BILL"
CASE case1=="S"
	this.VALUE="BILLS"
CASE case1=="Q"
	this.VALUE="CHEQUE #"
ENDCASE
this.selstart = 1000000