FoxPro/Visual FoxPro - Registros no deseados

Hola buenos dias.. tengan ustedes.. estoy preparando una tabla con numeros telefonicos de los cuales deseo presentar con una barra iluminada aquellos registros que no sean oficiales. Estoy pasandolo y presentandolo en cursor pero ahi deseo me presente aquellos no deseados o listos para ser cobrados a usuarios...
La tabla es como sigue.

Tabla llamada SIANA
fecha telorigen teldestino destino
12/02/09 12345 4444 xxx &&Oficial
12/02/09 12345 4441 xxx &&No Oficial y marcarlo
12/02/09 12345 4444 xxx && Oficial
12/02/09 12345 1448 xxx && No Oficial y marcarlo

SELECT * FROM siana ORDER BY telorigen INTO CURSOR Resulta
ThisForm.List1.rowsource="resulta.Fecha,Telorigen,Teldestino,destino"

En el cursor quiero marcar con color marcatextos (amarillo) los telefonos "NO OFICIALES" y marcar el registro.

Que puedo hacer...??

Muchas Gracias Amigos

Puedes usar algo parecido

Grd = THISFORM.grdProducts

* Clear the current grid dynamic fore and back colors
*----------------------------------------------------
oGrd.SetAll("dynamicbackcolor", "", "Column")
oGrd.SetAll("dynamicforecolor", "", "Column")

DO CASE
CASE THIS.Value = 2 && Ledger
oGrd.SetAll("dynamicbackcolor", ;
"IIF(RECNO()%2 = 0,RGB(255,255,0), RGB(255,255,255))", "Column")
*----------------------------------------------------
CASE THIS.Value = 3 && RGB(192,192,192)discontinued items
oGrd.SetAll("dynamicforecolor", ;
"IIF(discontinu, RGB(192,192,192), RGB(0,0,0))", "Column")
*----------------------------------------------------
CASE THIS.Value = 4 && High Profit items
oGrd.SetAll("dynamicforecolor", ;
"IIF(Unit_price - Unit_cost > 5, RGB(255,255,255), RGB(0,0,0))", "Column")
oGrd.SetAll("dynamicbackcolor", ;
"IIF(Unit_price - Unit_cost > 5, RGB(255,0,0), RGB(255,255,255))", "Column")
*----------------------------------------------------
CASE THIS.Value = 5 && checkerboard
oGrd.SetAll("dynamicforecolor", "RGB(255,255,255)", "Column")
FOR i = 1 TO oGrd.ColumnCount
IF i % 2 = 0
oGrd.Columns(i).dynamicbackcolor = "IIF(RECNO()%2 = 0, RGB(255,0,0), RGB(0,0,0))"
ELSE
oGrd.Columns(i).dynamicbackcolor = "IIF(RECNO()%2 = 0, RGB(0,0,0), RGB(255,0,0))"
ENDIF
ENDFOR
*----------------------------------------------------
ENDCASE
oGrd.Refresh

Pero esto es para un Grid mas NO para un List1... Creo... no..??
Tanks...Brother

Fijate si te sirve esto
http://www.davphantom.net/consultar.asp?id=combo-multiseleccion-1581/

Como saber cuales son:
Oficial , No Oficial y marcarlo, Oficial, No Oficial y marcarlo