I want to have a search feature in an edibox
there is a txtbo for the word to be found

in there i do:

x1=ALLTRIM(UPPER(this.Parent.txt1.Value))
LOCATE FOR x1$UPPER(notes)
thisform.nccNotes_Pointer=RECNO('ccNOTES')

this.Parent.grdNOTES.Refresh()
this.Parent.edt2.Refresh()

x2=UPPER(ccNOTES.notes)
x3=AT(x1,x2)  && find the start in the memo
this.Parent.edt2.SelStart=x3
this.Parent.edt2.SelLength=LEN(x1)  && epect the word th be highlightd, but isnt

but it does not highlight
can it be done? and how??

Thanks

Peter