Alttaki kodları örneğin bir CommandButton'ın Click olayına atayın:
Kod:
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(2) = "İade" Then
ListView1.ListItems(i).ListSubItems(2).ForeColor = vbRed
ElseIf ListView1.ListItems(i).SubItems(2) = "Defolu" Then
ListView1.ListItems(i).ListSubItems(2).ForeColor = vbBlue
End If
Next
ListView1.Refresh