>In a list box I have fields: name, city, good
>
>How can I show red all lines for clients wich good = 1 ?

Something similar to this:

*Form.Init
sele your_table

Define Popup P_List

ia=0
=AFIELDS(afld)
SCAN
	ia=ia+1
	lcfontoption=[Font "Tahoma", 11 Style "B"]
	lccoloroption=IIF("YURI"$UPPER(EVALUATE(FIELD(1))),;
			[ Color, RGB(255,255,255,192,0,0)],"")
	lcpicture=' Picture "Stamp.bmp"'
		
	lccom="Define BAR("+TRANSFORM(ia)+") of P_List PROMPT '"+;
		EVALUATE(FIELD(1))+ "|"+EVALUATE(FIELD(2))+"|"+;
                      EVALUATE(FIELD(3))+"' " +;
            	 lcfontoption + lccoloroption + lcpicture
	 &lccom
ENDSCAN
		
with thisform.List1
	.Rowsource="P_List"
	.RowsourceType=9
endwith