Dim oZahl As New System.Random
Dim Zahl As Integer
Dim bZahl(255) As Byte
 
For i As Integer = 0 To 255
  Do
    Zahl = oZahl.Next(0, 256)
    If Array.IndexOf(bZahl, Zahl, 0, i) < 0 Then
      bZahl(i) = Zahl
      Exit Do
    End If
  Loop
Next

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de