Code:Dim itmX As ListItem
Set itmX = ListView1.SelectedItem
itmX.ForeColor = vbRed
Dim i As Integer
For i = 1 To itmX.ListSubItems.Count
itmX.ListSubItems(i).ForeColor = vbRed
Next i
'// Must be called or else the changes will not take effect
ListView1.Refresh
