Listview object

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

---