' NEUE LEERE FORM ERSTELLEN:
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
        filldatagrid(New DataGrid)
    End Sub
    Function fillrow(ByVal dr As DataRow) As DataRow
        Static a As Integer = 0
        a += 1
        dr(0) = "Eintrag " & a
        dr(1) = "Eintrag " & a
        dr(2) = 1
        Return dr
    End Function
    Private Sub filldatagrid(ByVal dg As 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")
        dt.Rows.Add(fillrow(dt.NewRow))
        dt.Rows.Add(fillrow(dt.NewRow))
        dt.Rows.Add(fillrow(dt.NewRow))
        dt.Rows.Add(fillrow(dt.NewRow))
        ds.Tables.Add(dt)
        dg.Size = Me.Size
        dg.DataSource = ds.Tables(0)
        setdgstyle(dg)
        Me.Controls.Add(dg)
    End Sub
    Private Sub setdgstyle(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" : t1.Alignment = HorizontalAlignment.Center
        t2.MappingName = "Zwei" : t2.Width = 200 : t2.HeaderText = "Spalte" & _
        "Zwei" : t2.Alignment = HorizontalAlignment.Left
        t3.MappingName = "Drei" : t3.Width = 100 : t3.HeaderText = "Spalte" & _
        "Drei" : t3.Alignment = HorizontalAlignment.Right
        t.GridColumnStyles.Add(t1)
        t.GridColumnStyles.Add(t2)
        t.GridColumnStyles.Add(t3)
        dg.TableStyles.Add(t)
    End Sub