Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As sevDataGrid.ListItem)
  With Item
    If ... Then
      Item.BackColor = vbRed
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de