FoxPro/Visual FoxPro - Busqueda Incremental usando LOCATE

Buenas Tardes

Quisiera pedirles amigos del foro si tiene un ejemplo de una busqueda incremetal utilizan locate y interactivechange
alguien podria darme un ejemplo?

Hola, aqui tengo algo, espero te sirva.

SET EXACT OFF
SET NEAR ON
xBusca = ALLTRIM(this.Value)
SELECT cCursor
IF SEEK(xBusca)
thisform.Refresh
ELSE
MESSAGEBOX('No existen datos coincidentes',48,thisform.Caption)
ENDIF
SET NEAR OFF
SET EXACT ON

Este código lo colocas en una caja de texto, en el interactivechange.

El Cursor debe estar contenido en un grid.

Ojo, el cursor debe estar indexado por el capmo de búsqueda...

Suerte.
Gabriel.