[silverlight]

يمكنك استخدام الدالة التالية

كود :

 Private Function RandomizeIntegers(items As List(Of Integer)) As List(Of Integer)
       Dim result = items
       Dim r = New Random()
       For i As Integer = items.ToArray.Length To 2 Step -1
           Dim j As Integer = r.Next(i)
           Dim t = result(j)
           result(j) = result(i - 1)
           result(i - 1) = t
       Next
       Return result
   End Function

الكود التالي يوضح كيف تستخدم الدالة لحل مشكلتك و هذا مجرد مثال توضيحي لا غير

كود :

       Label1.Text = ""
       Dim list As List(Of Integer) = New List(Of Integer) From {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
       Dim randomize As List(Of Integer) = RandomizeIntegers(list)
       For i As Integer = 0 To randomize.Count - 1
           Dim current As Integer = randomize(i)
           Dim s As String = current.ToString
           Label1.Text += s
       Next