' Vorbereiten
        Dim al As New ArrayList
        al.AddRange(New Integer() {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, _
          14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, _
          31, 32})
        Randomize()
 
        ' Mischen
        Dim a(31) As Integer
        For i As Integer = 31 To 0 Step -1
            Dim p As Integer = i * Rnd()
            a(i) = al(p)
            al.RemoveAt(p)
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist