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