Dim rndm1 As New Random
 
''' <summary>Folge von Zufallszahlen (Integer)</summary>
''' <param name="minval">Kleinste zulässige Zufallszahl</param>
''' <param name="maxval">Größte zulässige Zufallszahl</param>
''' <param name="maxcount">Maximale Häufigkeit einer Zufallszahl</param>
''' <param name="count">Länge der Zufallszahlenfolge</param>
''' <returns>Zufallszahlenfolge</returns>
Private Function GetRandomIntegers _
   (ByVal minval As Integer, ByVal maxval As Integer, _
    ByVal maxcount As Integer, ByVal count As Integer) As Integer()
 
   'Parameterchecks
   If minval >= maxval Then Return Nothing
   If maxcount < 1 Or count < 1 Then Return Nothing
   If maxcount * (maxval - minval + 1) < count Then Return Nothing
 
   Dim ret(count - 1) As Integer, v, c As Integer, ok As Boolean
 
   For i As Integer = 0 To count - 1
      Do
         v = rndm1.Next(minval, maxval + 1)
         c = 0
         'Wie oft wird v bereits verwendet?
         For k As Integer = 0 To i - 1
             If ret(k) = v Then c += 1
         Next k
         ok = c < maxcount 'Verwendbarkeit von v gegeben?
      Loop While Not ok
      ret(i) = v
   Next i
 
   Return ret
End Function