Sub Main()
        'Arraylist definieren
        Dim liste As New ArrayList
 
        'Array mit den Werten
        Dim werte(0, 1) As Integer
 
        For j = 2 To 9
            For i = 2 To 9
                'wert 0,0 muss bei jedem 8ten durchlauf erhöht werden
                'wert 0,1 bei jedem durchlauf
                werte(0, 0) = j
                werte(0, 1) = i
                liste.Add((werte))
                Console.WriteLine(werte(0, 0) & "  " & werte(0, 1))
 
            Next
        Next