31-01-17, 01:24 AM
اريد انشاء 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