Dim rand As New Random()
        Dim arr(0 To 9) As Integer
 
        For i As Integer = 0 To 9
            Dim value As Integer
            Do
                value = rand.Next(1, 11)
            Loop While arr.Contains(value)
            ' Das Array ist mit Nullen vorinitialisiert, deswegen funktioniert
            ' hier Contains(), ansonsten sollte lieber eine Liste genommen 
            ' werden
            arr.SetValue(value, i)
        Next