Private TestArray(255) As Integer, TempArray(255) As Integer
Public AllChance As Boolean
 
Private Sub Form_Load()
Dim ArrayCount As Integer, ArrayPos As Integer
 
Randomize Timer
 
    With Timer1
        .Interval = 1
        .Enabled = True
    End With
 
    While Not AllChance
        DoEvents
        ArrayCount = Int(((255 + 1) * Rnd) + 0)
            If TempArray(ArrayCount) = -1 Then
                TempArray(ArrayCount) = TestArray(ArrayPos = ArrayPos + 1)
                ArrayPos = ArrayPos + 1
            End If
    Wend
    MsgBox "Alle Werte getauscht."
End Sub
 
Private Sub Timer1_Timer()
Dim ChanceMustGoOn As Boolean
For a = 0 To 255
    If TempArray(a) = -1 Then
        ChanceMustGoOn = True
        Exit For
    End If
Next
    DoEvents
    If Not ChanceMustGoOn Then
        AllChance = True
    End If
End Sub