Private Sub ListView1_Click()
Dim wItem As ListItem
Dim C As Byte
Dim i As Byte
With ListView1
For i = 1 To .ListItems.Count
For C = 1 To .ColumnHeaders.Count
.ListItems(i).ForeColor = RGB(1, 0, 0)
.ListItems(i).ListSubItems(C).ForeColor = RGB(1, 0, 0)
Next C
Next i
Set wItem = .SelectedItem
wItem.ForeColor = RGB(0, 0, 255)
For C = 1 To .ColumnHeaders.Count
wItem.ListSubItems(C).ForeColor = RGB(0, 0, 255)
Next C
End With
Me.Repaint
End Sub