>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

Make sure that HideSelection of the EditBox is set to .f.