[silverlight]

PHP كود :

 Friend Sub RandomListBoxItems(values As IList, startIndex As Integer, lastIndex As Integer, rnd As Random)
        For i As Integer = startIndex + 1 To lastIndex - 1
            Dim index As Integer = rnd.Next(i - startIndex + 1) + startIndex
            Dim value As Object = values(i)
            values(i) = values(index)
            values(index) = value
        Next
    End Sub 


الإستخدام 

أفترض أن المدخلات عندك كلها عبارة عن String
أيضا أفترض ان تريد التحقق من ان عدد العناصر الموجودة في الليست بوكس اكثر من 12
أيضا أفترض ان عدد العناصر لن يتعدي 12 عنصر في المصفوفة التي تم عمل Randomize  لها

PHP كود :

      Dim items As List(Of String) = ListBox1.Items.OfType(Of String)().ToList()
        If Not items Is Nothing AndAlso items.Count >= 11 Then
            RandomListBoxItems(items, 0, items.Count - 1, New Random(items.Count - 1))
        End If

        Dim result As List(Of String) = New List(Of String)()
        For i As Integer = 0 To 11
            result.Add(items(i))
        Next

        Label1.Text = items(0)