Const product_column As Integer = 0 Const productname_column As Integer = 1 Const units_instock_column As Integer = 2 Const units_onorder_column As Integer = 3 Const reorderlevel_column As Integer = 4 Const discontinued_column As Integer = 5 With ListView1.Items .Add(myreader.Item("productid")) curentrow = .Count - 1 .Item(curentrow).SubItems.Add(myreader.Item("productname")) .Item(curentrow).SubItems.Add(myreader.Item("unitsinstock")) .Item(curentrow).SubItems.Add(myreader.Item("unitsonorder")) .Item(curentrow).SubItems.Add(myreader.Item("reorderlevel")) .Item(curentrow).SubItems.Add(myreader.Item("discontinued")) If myreader.GetInt16(units_instock_column) <= myreader.GetInt16(reorderlevel_column) And _ myreader.GetInt16(units_onorder_column) = 0 And _ myreader.GetBoolean(discontinued_column) = False Then .Item(curentrow).SubItems.Item(units_instock_column).ForeColor = Drawing.Color.White .Item(curentrow).SubItems.Item(units_instock_column).BackColor = Drawing.Color.DarkRed Else .Item(curentrow).SubItems.Item(units_instock_column).ForeColor = Drawing.Color.DarkOliveGreen .Item(curentrow).SubItems.Item(units_instock_column).BackColor = Drawing.Color.DarkRed End If End WithThe listbox loads but I see no color changes. Am I color blind?