CodeItBetter Programming Another VB Programming Blog

'Controls - How to Colour a Listview Item or SubItem
Option Explicit
 
Public Sub ColorListviewRow(ByVal lv As ListView, ByVal RowNbr As Long, ByVal RowColor As OLE_COLOR)
    Dim itmX As ListItem
    Dim lvSI As ListSubItem
    Dim intIndex As Integer
 
    On Error GoTo ColorListviewRow_Error
 
    Set itmX = lv.ListItems(RowNbr)
    itmX.ForeColor = RowColor
    For intIndex = 1 To lv.ColumnHeaders.Count - 1
        Set lvSI = itmX.ListSubItems(intIndex)
        lvSI.ForeColor = RowColor
    Next intIndex
    Set itmX = Nothing
    Set lvSI = Nothing
 
ExitHere:
    On Error GoTo 0
    Exit Sub
 
ColorListviewRow_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure ColorListviewRow of Form Form1"
End Sub