Sub test()
        Dim dt As New DataTable("tabelle1")
        Dim dr As DataRow
        Dim ts As New DataGridTableStyle
        Dim bc As DataGridTextBoxColumn
        dt.Columns.Add("Spalte1")
        dt.Columns.Add("Spalte2")
        dt.Columns.Add("Spalte3")
        For a As Integer = 0 To 10
            dr = dt.NewRow
            dr(0) = New String(Chr(a + 50), 10)
            dr(1) = New String(Chr(a + 60), 10)
            dr(2) = New String(Chr(a + 70), 10)
            dt.Rows.Add(dr)
        Next
        ts.MappingName = "tabelle1"
 
        bc = New DataGridTextBoxColumn
        bc.MappingName = "Spalte1"
        bc.Width = 100
        bc.HeaderText = dt.Columns(0).ColumnName.ToUpper
        ts.GridColumnStyles.Add(bc)
 
        bc = New DataGridTextBoxColumn
        bc.MappingName = "Spalte2"
        bc.Width = 200
        bc.HeaderText = dt.Columns(1).ColumnName.ToUpper
        ts.GridColumnStyles.Add(bc)
 
        bc = New DataGridTextBoxColumn
        bc.MappingName = "Spalte3"
        bc.Width = 300
        bc.HeaderText = dt.Columns(2).ColumnName.ToUpper
        ts.GridColumnStyles.Add(bc)
 
        Me.DataGrid1.TableStyles.Add(ts)
        Me.DataGrid1.DataSource = dt
    End Sub