FoxPro/Visual FoxPro - necesito saver acerca de una lista o list box

saludos : soy principiante y estoy aciendo un programita de facturacion provicional para una joyeria y necesito hacer una busqueda donde me salgan desde que entre en el canpo y comiense a escrivir me salga una lista con la informacion que necesito de una tabla y se quite cuando yo salga del campo.

espero que me puedan ayudar

Hola,
yo hice algo similar he hice esto en el valid del campo en cuestion:

If Lastkey() = 13 or lastkey() =3 or lastkey()=24 or lastkey()=4 or lastkey()=9
If Empty(This.Value)
Select cNombre, cCodigo from clientes ;
where !Deleted() ;
Order by cnombre into cursor tmpClientes

Thisform.list1.Visible=.t.
ThisForm.list1.RowSource='tmpclientes'


Else
Select cNombre, cCodigo from clientes ;
Where Alltrim(This.Value)==Alltrim(Substr(cNombre,at(Alltrim(This.Value), ;
Alltrim(cNombre)),Len(AllTrim(this.Value)))) ;
and !Deleted() ;
Order by cnombre into cursor tmpClientes
if _tally # 0

ThisForm.list1.Visible=.t.
ThisForm.list1.RowSource='tmpClientes'
ThisForm.list1.Requery
Else
with thisform
.txtcDomicilio.Enabled=.t.
.txtcRfc.Enabled=.t.
.txtcCiudad.Enabled=.t.
.txtcTelefono.Enabled=.t.
.txtcPostal.Enabled=.t.
.cmbEdos.Enabled=.t.
EndWith
ThisForm.Grid1.Enabled=.t.
thisform.grid1.column7.enabled=.f.
ThisForm.Grid1.AllowAddNew=.t.
Select CapFactura
If Reccount() = 0
Append Blank
go Bottom
Endif
ThisForm.Grid1.allowAddNew=.f.
wRenglon=wRenglon+1
Endif
Endif
Endif
Saludos, espero te sirva

te lo hagradesco de todo corazon jorge me ha cervido de mucho hablamos luego