ByVal nRow As Long, Item As sevDataGrid2.ListItem, bSkip As Boolean)
  With Item
    If nRow Mod 2 = 0 Then
      Item.BackColor = weiseFarbe
    Else
      Item.BackColor = graueFarbe
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de