Clipper/FiveWin - Busqueda Rapida

amigos de la red como puedo hacer una busqueda rapida en un listbox como por Ejemplo: tengo una base de datos de articulos de ferreteria y como son miles de ellos solo al presionar la tecla la letra indicada que se vaya al registro :
Si yo presiono la tecla M que se vaya a las M y si yo siguo escribiendo que siga buscando como MA o MAR
desde ya gracias amigos del foro

Jose:

REDEFINE GET sabus ID 115 OF ventana; ON CHANGE (::Assign(),;
IF( HFCLI->(DbSeek(AnsiToOem( Upper( SubStr( sabus,1, ::nPos - 1 ) ); +Upper( Chr( nKey ) ) ) ) ),;
( lisbasAM:UpStable(), lisbasAM:Refresh(), .t. ),( ( " " ), .f. ) ) )

Saludos
Mauricio Arevalo