>With ThisForm.ole_listview.listitems > .Clear > Select mytable > Scan > llvw_row = .ADD(,,RECNO()) > llvw_row.ForeColor = COLOR_BLACK && No Error > llvw_row.BackColor = COLOR_GRAY && Error > EndScan >EndWith >