Byteviewer Control mit Zufallszahlen füllen VB 2008

Hallo Leute

Ich hoffe ihr könnt mir helfen. Will in VB2008 das Byteviewer Control 
mit Zufallszahlen füllen. Leider will der Code nur bis zur Zelle 255 
arbeiten. Dann fängt er wieder von vorne an :-(

Hier mal mein code (weis könnte man schöner schreiben):

        Dim arr(5000) As Byte
        Dim i As Long
        Dim a As Byte

        For i = 0 To UBound(arr)
            Randomize()
            a = Int(System.Math.Sqrt(Int(Rnd() * 255) * Int(Rnd() * 
255)))
            arr(i) = a
        Next i
        byteviewer.SetBytes(arr)

Weis jemand eine Lösung für dieses Problem?

mfG
Rnd