[Mohamed20]

اريد انشاء Random list من listbox بدون تكرار نفس item هذا هو الكود لاكن لايعمل يتم التكرار

كود :

       Dim r As New Random
       For i = 0 To 10
           If Not ListBox3.Items.Contains((ListBox2.Items(r.Next(0, ListBox2.Items.Count)) Then
               ListBox3.Items.Add(ListBox2.Items(r.Next(0, ListBox2.Items.Count)))
           End If
       Next