Private Sub but_click(ByVal sender As Object, ByVal e As EventArgs)
        Dim myDoubles(mytextBoxes.Count - 1) As Double
        Dim i As Integer = -1
        For Each key As String In mytextBoxes.Keys
            i += 1
            If IsNumeric(mytextBoxes(key).Text) Then
                dt.Rows(i).Item(2) = CDbl(mytextBoxes(key).Text)
            End If
        Next key
        prüfen()
    End Sub
    Sub prüfen()
        Dim Prüf_ergeb = 0
        Dim prüf(10, 6)
        Dim prüf1
        Dim prüf2
        For prüf1 = 0 To 9
            For prüf2 = 0 To 5
                prüf(prüf1, prüf2) = dt.Rows(prüf1).Item(prüf2)
            Next
            If prüf(prüf1, 3) = prüf(prüf1, 2) Then
                dt.Rows(prüf1).Item(4) = 1
                Prüf_ergeb = Prüf_ergeb + 1
            End If
            If prüf(prüf1, 3) <> prüf(prüf1, 2) Then dt.Rows(prüf1).Item(5) = 1
        Next
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      FormClosingEventArgs) Handles Me.FormClosing
        dt.WriteXml(DatasetName)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        dt.Columns.Clear()
        Dim i As Integer = -1
        For Each key As String In mytextBoxes.Keys
            i += 1
            If IsNumeric(mytextBoxes(key).Text) Then
                'inhalt(i) = CStr(mytextBoxes(key).Text)
            End If
            mytextBoxes(key).Text = String.Empty
        Next key
        i = 0
        For Each key As String In mylabelBoxes.Keys
            i += 1
            If IsNumeric(mylabelBoxes(key).Text) Then
                'inhalt(i) = CStr(mytextBoxes(key).Text)
            End If
            mylabelBoxes(key).Text = String.Empty
        Next key
        mytextBoxes.Clear()
        mylabelBoxes.Clear()
        OnLoad(e)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Close()
    End Sub
End Class