Private Sub lstAuftragDetails_RowLoaded(ByVal nRow As Long, Item As ListItem)
  With Item
 
    If lstAuftragDetails.Recordset.Fields(2).Value = True Then
        .RowColor = vbRed
    Else
        .RowColor = vbBlue
    End If
 
    ' Falls Hauptauftrag, Bildsymbol anzeigen
    If .CellText(2) > 0 Then
        .CellImage(2) = 2
    Else
        .CellImage(2) = 1
    End If
  End With
End Sub