Private rnd As New Random
    Private dt As New DataTable
 
    Private Sub AddEntry(ByVal zahl1 As Integer, ByVal zahl2 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("Ergebniss") = ergebnis
        row("richtig") = richtig
        row("falsch") = falsch
        dt.Rows.Add(row)
    End Sub
 
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        MyBase.OnLoad(e)
 
        With (dt.Columns)
            .Add("Zahl1", GetType(Integer))
            .Add("Zahl2", GetType(Integer))
            .Add("Ergebniss", GetType(Integer))
            .Add("richtig", GetType(Integer))
            .Add("falsch", GetType(Integer))
        End With
 
        For i As Integer = 0 To 100
            AddEntry(rnd.Next(1, 100), rnd.Next(1, 100), rnd.Next(1, 100), _
              rnd.Next(1, 100), rnd.Next(1, 100))
        Next
    End Sub