Dim dt As New DataTable
        Dim dr As DataRow
 
        dt.Columns.Add(New DataColumn("Spalte", GetType(String)))
        dt.Columns.Add(New DataColumn("Wert", GetType(String)))
 
        Dim i As Integer
        For i = 0 To 8
            dr = dt.NewRow()
 
            dr(0) = i
            dr(1) = i
 
            dt.Rows.Add(dr)
        Next i
 
        Dim dv As New DataView(dt)
 
        With Me.DataGrid1
            .DataSource = dv
            .Controls.Add(Me.Button4)
            Me.Button4.SetBounds(0, 0, 20, 20)
        End With