*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