' Icon-Liste
        .Icons.Add Image1(0).Picture
        .Icons.Add Image1(1).Picture

Public Sub sevGridPflegeliste_RowLoaded(ByVal nRow As Long, Item As _
  sevDataGrid2.ListItem)
    With Item
        If Val(.CellText("MO-Shop-Beschreibung")) <= 10 Then
            .CellBackColor("MO-Shop-Beschreibung") = &H80C0FF
        End If
 
        If .CellText("MO-Shop-Beschreibung") = "0" Then
            .CellBackColor("MO-Shop-Beschreibung") = &H1A00E2
        End If
 
        If .CellText("Bild1") = 1 Then
            .CellImage "Bild1" = 0
        else
            .CellImage "Bild1" = 1
 
        end if
    End With
End Sub