Dim dt As DataTable
        Dim dr As DataRow
        Dim i As Integer
        dt = New DataTable
        dt.Columns.Add(New DataColumn("Klasse 1/2", GetType(Integer)))
        dt.Columns.Add(New DataColumn("Klasse 3", GetType(Integer)))
        dt.Columns.Add(New DataColumn("Klasse 4", GetType(Integer)))
        dt.Columns.Add(New DataColumn("Klasse 5", GetType(Integer)))
        dt.Columns.Add(New DataColumn("Klasse 6", GetType(Integer)))
        dt.Columns.Add(New DataColumn("Klasse 7", GetType(Integer)))
        dt.Columns.Add(New DataColumn("Klasse 8", GetType(Integer)))
        dt.Columns.Add(New DataColumn("Fälle", GetType(Integer)))
        dt.Columns.Add(New DataColumn("Prozent", GetType(Single)))
        Dim Klasse2(2) As Integer
        Dim Klasse3(2) As Integer
        Dim Klasse4(2) As Integer
        Dim Klasse5(2) As Integer
        Dim Klasse6(2) As Integer
        Dim Klasse7(2) As Integer
        Dim Klasse8(2) As Integer
        Dim Quote(2) As Integer
        Dim Prozent(2) As Double
        ' Beispiel für System VEW 609 bei 6 Treffern 
        Klasse2(2) = 1
        Klasse2(1) = 0
        Klasse3(2) = 0
        Klasse3(1) = 0
        Klasse4(2) = 0
        Klasse4(1) = 3
        Klasse5(2) = 0
        Klasse5(1) = 0
        Klasse6(2) = 9
        Klasse6(1) = 6
        Klasse7(2) = 0
        Klasse7(1) = 0
        Klasse8(2) = 2
        Klasse8(1) = 3
        Quote(2) = 36
        Quote(1) = 216
        Prozent(2) = 14.28571
        Prozent(1) = 85.71429
        ' Ende Beispiel
        For i = 1 To 2
            dr = dt.NewRow()
            dr(0) = Klasse2(i)
            dr(1) = Klasse3(i)
            dr(2) = Klasse4(i)
            dr(3) = Klasse5(i)
            dr(4) = Klasse6(i)
            dr(5) = Klasse7(i)
            dr(6) = Klasse8(i)
            dr(7) = Quote(i)
            dr(8) = Prozent(i)
            dt.Rows.Add(dr)
        Next
        DataGrid1.DataSource = New DataView(dt)