Public Class clsDeineKlasse
    Inherits DataGridTextBoxColumn
    Public Sub New()
    End Sub
    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
            Dim o As Object
            o = Me.GetColumnValueAtRow(source, rowNum)
            If (Not (o) Is Nothing) Then
                Dim c As Char
                c = CType(o, String).ToString()
                If (c = "männlich") Then
                    backBrush = New SolidBrush(Color.Red)
                    foreBrush = New SolidBrush(Color.White)
                ElseIf (c = "weiblich") Then
                    backBrush = New SolidBrush(Color.White)
                    foreBrush = New SolidBrush(Color.White)
                End If
            End If
        Catch ex As Exception
        Finally
            MyBase.Paint(g, bounds, source, rowNum, backBrush, foreBrush, _
              alignToRight)
        End Try
    End Sub
End Class

If myDT.Columns(i).DataType Is GetType(Boolean) Then
                If myDT.Columns(i).ColumnName = "bezahlt" Or myDT.Columns( _
                  i).ColumnName = "nicht bezahlt" Then
                    newCS = New ZellenFarbig(myDT.Columns(i).ColumnName = _
                    "bezahlt")
                Else
                    newCS = New DataGridBoolColumn
                End If
            Else
                newCS = New clsDeineKlasse
            End If