Sub Random()
        Dim zahlen As New ListBox
        Dim wert As Integer = 1
        Dim zähler As Integer
        For i As Integer = 0 To 15
            zahlen.Items.Add(wert)
            zähler += 1
            If zähler = 2 Then
                wert += 1
                zähler = 0
            End If
        Next
        'Zahlen ist nun mit den Zahlen von 1-8 jeweils zwei mal gefüllt (1, 1, 
        ' 2, 2, 3, 3, ....)
        Dim randomitem As Integer
        For i As Integer = 0 To 15
            randomitem = CInt(Rnd() * zahlen.Items.Count - 1)
            cmd(i).Text = If(zahlen.Items(randomitem).ToString <> "", _
              zahlen.Items(randomitem).ToString, "Button")
            zahlen.Items.RemoveAt(randomitem)
        Next
    End Sub

_______________________________________________________________________
Heute stehen wir am Abgrund. Morgen sind wir schon einen Schritt weiter.

iComputerfreak

Beitrag wurde zuletzt am 20.11.12 um 19:27:01 editiert.