Dim dt As New DataTable("tabelle1")
        Dim dr As DataRow
        Dim ts As New DataGridTableStyle
        Dim bc As DataGridBoolColumn
        dt.Columns.Add("Spalte1")
        dt.Columns.Add("Spalte2")
        dt.Columns.Add("Spalte3")
        Randomize()
        For a As Integer = 0 To 10
            dr = dt.NewRow
            If CInt((Int(10 * Rnd() + 1))) Mod 2 = 0 Then ' per zufall 
            ' irgendwelche daten in das datatable schreiben
                dr(0) = "1"
                dr(1) = "B"
                dr(2) = "11"
            Else
                dr(0) = "0"
                dr(1) = "A"
                dr(2) = "00"
            End If
            dt.Rows.Add(dr)
        Next
        ts.MappingName = "tabelle1"
 
        bc = New DataGridBoolColumn
        bc.MappingName = "Spalte1"
        bc.TrueValue = "1"
        bc.FalseValue = "0"
        bc.HeaderText = dt.Columns(0).ColumnName
        ts.GridColumnStyles.Add(bc)
 
        bc = New DataGridBoolColumn
        bc.MappingName = "Spalte2"
        bc.TrueValue = "B"
        bc.FalseValue = "A"
        bc.HeaderText = dt.Columns(1).ColumnName
        ts.GridColumnStyles.Add(bc)
 
        bc = New DataGridBoolColumn
        bc.MappingName = "Spalte3"
        bc.TrueValue = "11"
        bc.FalseValue = "00"
        bc.HeaderText = dt.Columns(2).ColumnName
        ts.GridColumnStyles.Add(bc)
 
        Me.DataGrid1.TableStyles.Add(ts)
        Me.DataGrid1.DataSource = dt