Protected Overloads Overrides Sub Paint(ByVal g As Graphics, ByVal bounds As _
  Rectangle, _
     ByVal source As CurrencyManager, ByVal rowNum As Integer, ByVal backBrush _
     As Brush, _
     ByVal foreBrush As Brush, ByVal alignToRight As Boolean)
            Try
                If source.List(rowNum).Row("SelectedRow") = 1 Then
                    backBrush = New LinearGradientBrush(bounds, Color.Green, _
                                Color.Green, LinearGradientMode.Vertical)
                    foreBrush = New SolidBrush(Color.Black)
                Else
                    backBrush = New LinearGradientBrush(bounds, _
                      Color.Firebrick, _
                                                Color.Firebrick, _
                                                LinearGradientMode.Vertical)
                    foreBrush = New SolidBrush(Color.Black)
                End If
            Catch ex As Exception
                  'Keine Spalte namens SelectedRow gefunden
            End Try
        MyBase.Paint(g, bounds, source, rowNum, backBrush, foreBrush, _
          alignToRight)
    End Sub