Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
        Dim dt As New Data.DataTable("benutzer")
        dt.Columns.Add("vorname")
        dt.Columns.Add("nachname")
        Dim r As Data.DataRow
        Dim ts As New DataGridTableStyle
        Dim dgtc As DataGridTextBoxColumn
        Dim dg As New DataGrid
 
        r = dt.NewRow
        r(0) = "hans"
        r(1) = "meier"
        dt.Rows.Add(r)
 
        r = dt.NewRow
        r(0) = "peter"
        r(1) = "lustig"
        dt.Rows.Add(r)
 
        ts.MappingName = "benutzer"
        dg.DataSource = dt
        dg.HeaderFont = New Font("Arial", 30)
        For Each c As Data.DataColumn In dt.Columns
            dgtc = New DataGridTextBoxColumn
            dgtc.MappingName = c.ColumnName
            dgtc.HeaderText = c.ColumnName + ControlChars.NewLine + c.ColumnName
            ts.GridColumnStyles.Add(dgtc)
        Next
        dg.TableStyles.Add(ts)
        dg.Size = Me.Size
        Me.Controls.Add(dg)
 
    End Sub