For i = 1 To ListView1.ListItems.Count ListView1.ListItems(i).ListSubItems.Item(1).ForeColor = &HFFBF00 ListView1.ListItems(i).ListSubItems.Item(2).ForeColor = &H2C01E6 Next i