Private Sub austeilen()
        Dim x As Integer
        ReDim SP1(7)
        ReDim SP2(7)
        ReDim SP3(7)
        For x = 0 To 6
            SP1(x + 1) = za(1 + (x * 3))
            SP2(x + 1) = za(2 + (x * 3))
            SP3(x + 1) = za(3 + (x * 3))
        Next
    End Sub
 
    Private Sub Einsammeln(ByVal SpalteMitte As Integer)
        Dim x As Integer
        ReDim za(21)
        Select Case SpalteMitte
            Case 1
                Array.Copy(SP2, za, 8)
                Array.Copy(SP1, 1, za, 8, 7)
                Array.Copy(SP3, 1, za, 15, 7)
 
            Case 2
                Array.Copy(SP3, za, 8)
                Array.Copy(SP2, 1, za, 8, 7)
                Array.Copy(SP1, 1, za, 15, 7)
            Case 3
                Array.Copy(SP2, za, 8)
                Array.Copy(SP3, 1, za, 8, 7)
                Array.Copy(SP1, 1, za, 15, 7)
        End Select
    End Sub
 
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        If MausInSpalte = -1 Then Exit Sub
        Dim x As Integer
        Einsammeln(MausInSpalte)
        austeilen()
        Schritt += 1
        Select Case Schritt
            Case 1
                Anzeige = "Schritt 2: Suche die gemerkte Zahl und klicke wieder" & _
                  "auf die Spalte, in der sie sich befindet!"
            Case 2
                Anzeige = "Schritt 3: Das Ganze noch einmal!"
            Case 3
                Anzeige = "Noch einmal klicken???!"
                For x = 1 To 21
                    za(x) = za(11)
                Next
                austeilen()
            Case 4
                Me.Close()
                End
        End Select
        Me.Refresh()
    End Sub