Public Sub New(ByVal type As String)
        MyBase.New()
        _type = type
        Me.AllowNull = False  <----AllowNull ist blau unterstrichen, isch koe _
          Member
    End Sub

For i As Integer = 1 To myDT.Columns.Count - 1
            ' neuen eigenen ColumnStyle erstellen
            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 DataGridTextBoxColumn
            End If
            With newCS
                ' demn ColumnStyle Namen der Spalte aus der DataTable zuordnen
                .MappingName = myDT.Columns(i).ColumnName
                ' Spaltennamen als Überschrift
                .HeaderText = myDT.Columns(i).ColumnName
                ' neuen ColumnStyle dem TableStyle zuordnen
                myTS.GridColumnStyles.Add(newCS)
            End With

VB@rchiv its the Best