Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim dg As New DataGrid
        Dim ds As New DataSet
        Dim dt As New DataTable("table")
        Dim dr As DataRow
        dt.Columns.Add("Eins")
        dt.Columns.Add("Zwei")
        dt.Columns.Add("Drei")
        dr = dt.NewRow
        dr(0) = "Eintrag 1"
        dr(1) = "Eintrag 2"
        dr(2) = "True" '# CheckBox
        dt.Rows.Add(dr)
        ds.Tables.Add(dt)
        dg.Size = Me.Size
        dg.DataSource = ds.Tables(0)
        style(dg)
        Me.Controls.Add(dg)
    End Sub
 
    Sub style(ByVal dg As DataGrid)
        Dim t As New DataGridTableStyle
        Dim t1 As New DataGridTextBoxColumn
        Dim t2 As New DataGridTextBoxColumn
        Dim t3 As New DataGridBoolColumn
        t.MappingName = "table"
        t1.MappingName = "Eins" : t1.Width = 100 : t1.HeaderText = "Spalte Eins"
        t2.MappingName = "Zwei" : t2.Width = 200 : t2.HeaderText = "Spalte Zwei"
        t3.MappingName = "Drei" : t3.Width = 50
        t.GridColumnStyles.Add(t1)
        t.GridColumnStyles.Add(t2)
        t.GridColumnStyles.Add(t3)
        dg.TableStyles.Add(t)
    End Sub