Kod:
Private Sub Komut2_Click()
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(2) = "İade" Then 'koşul satırı
ListView1.ListItems(i).ListSubItems(2).ForeColor = vbRed '3. sıra
ListView1.ListItems(i).ListSubItems(1).ForeColor = vbRed '2. sıra
ListView1.ListItems(i).ForeColor = vbRed 'ilk sıra
ElseIf ListView1.ListItems(i).SubItems(2) = "Defolu" Then
ListView1.ListItems(i).ListSubItems(2).ForeColor = vbBlue '3. sıra
ListView1.ListItems(i).ListSubItems(1).ForeColor = vbBlue '2. sıra
ListView1.ListItems(i).ForeColor = vbBlue 'ilk sıra
End If
Next
ListView1.Refresh
End Sub