Declare INTEGER LockWindowUpdate IN Win32API INTEGER hWnd lnpos = 1 lnoccurs = 0 With Thisform.RTF LockWindowUpdate(.hWnd) Do while lnpos > 0 lnpos = .Object.Find(allt(ThisForm.Text1.value), lnpos) If lnpos >= 0 .Object.SelBold = .T. .object.selunderline = .T. .Object.SelColor = RGB(255,0,0) .object.selfontsize = .object.selfontsize + 3 lnpos = .Object.selstart + 1 lnpos = iif(lnpos=1, 0, lnpos) lnoccurs = lnoccurs + 1 Endif Enddo if lnoccurs > 0 lnpos = .Object.Find(allt(ThisForm.Text1.value), 1) endif endwith LockWindowUpdate(0)Claudio