Option Explicit On
'Option Strict On
Imports System.IO
Imports System.Xml
Public Class rechnen
    Dim Aufgaben As System.Int32
    Dim i As Integer
    Dim s1 As Integer
    Dim s2 As Integer
    Dim eg As Integer
    Dim fa As Integer
    Dim ri As Integer
    Dim lö As Integer
    Dim dt As New DataTable("Mathe")
    Private bs As New BindingSource(dt, "")
    Private dgv As New DataGridView With {.Dock = DockStyle.Fill, .DataSource = _
      bs}
    Const DatasetName As String = "c:\übung\mathe_1_1.xml" ' Name der Datei 
    ' oder der Ressource
    Dim mylabelBoxes As New System.Collections.Generic.Dictionary(Of String, _
      Windows.Forms.Label)
    Dim mytextBoxes As New System.Collections.Generic.Dictionary(Of String, _
    Windows.Forms.TextBox)
    Friend ReadOnly Property DatasetFileName As String
        Get
            Return System.IO.Path.Combine(Application.CommonAppDataPath, _
              DatasetName)
        End Get
    End Property
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
     End Sub
    Private Sub AddEntry(ByVal zahl1 As Integer, ByVal zahl2 As Integer, ByVal _
     eingabe As Integer, ByVal ergebnis As Integer, ByVal richtig As Integer, _
     ByVal falsch As Integer)
        Dim row As DataRow = dt.NewRow
        row("Zahl1") = zahl1
        row("Zahl2") = zahl2
        row("Eingabe") = eingabe
        row("Ergebniss") = ergebnis
        row("richtig") = richtig
        row("falsch") = falsch
        dt.Rows.Add(row)
    End Sub