'Mit nachfolgender Prozedur lassen sich die Einträge eines ListView-Controls in 
' einer
'bestimmten Farbe darstellen. Die Prozedur erwartet drei Parameter, die jetzt 
' kurz beschrieben werden sollen.
 
'lvw: ListView -Control
'lColor: Farbwert
'lColumn: Spalte, die "gefärbt" werden soll oder 0 für alle Spalten
'lRow: Zeile-Index oder 0 für alle Zeilen
 
Public Sub lvw_SetColor(lvw As ListView, _
  ByVal lColor As Long, ByVal lColumn As Long, _
  Optional ByVal lRow As Long = 0)
 
  Dim itemX As ListItem
  Dim iCols As Integer
  Dim i As Integer
 
  ' Anzahl Spalten ermitteln
  iCols = lvw.ColumnHeaders.Count
 
  If lRow > 0 Then
    ' nur bestimmte Zeile berücksichtigen
    If lRow <= lvw.ListItems.Count Then
      Set itemX = lvw.ListItems(lRow)
      If lColumn = 0 Then
        ' gesamte Spalten "einfärben"
        itemX.ForeColor = lColor
        For i = 1 To iCols - 1
          itemX.ListSubItems(i).ForeColor = lColor
        Next i
      Else
        ' bestimmte Spalte "einfärben"
        If lColumn = 1 Then
          ' 1. Spalte
          itemX.ForeColor = lColor
        Else
          ' SubItem
          itemX.ListSubItems(lColumn - 1).ForeColor = lColor
        End If
      End If
    End If
 
  Else
    ' alle Zeilen berücksichtigen
    For Each itemX In lvw.ListItems
      If lColumn = 0 Then
        ' gesamte Spalten "einfärben"
        itemX.ForeColor = lColor
        For i = 1 To iCols - 1
          itemX.ListSubItems(i).ForeColor = lColor
        Next i
      Else
        ' bestimmte Spalte "einfärben"
        If lColumn = 1 Then
          ' 1. Spalte
          itemX.ForeColor = lColor
        Else
          ' SubItem
          itemX.ListSubItems(lColumn - 1).ForeColor = lColor
        End If
      End If
    Next
  End If
 
  ' Wichtig! Neuzeichnen
  lvw.Refresh
End Sub