[Sajad]

السلام عليكم

أخي العزيز استبدل الكود بهذا:

PHP كود :

ListBox2.Items.Clear()
        Dim l As New List(Of Object)
        For Each item As String In ListBox1.Items.ToString()
            l.Add(item)
        Next
        Dim x As Integer = CInt(TextBox1.Text)
        Dim index As Integer
        Dim s As String
        Dim r As New Random()
        While (x > 0)
            index = r.Next(ListBox1.Items.Count)
            s = ListBox1.Items(index).ToString()
            If Not ListBox2.Items.Contains(s) Then
                ListBox2.Items.Add(s)
                l.RemoveAt(index)
                x = x - 1
            End If
        End While 


موفق ان شاءالله