[معاند الحظ]

استخدم الكود التالي اذا كنت تريد حذف عناصر ليست بوكس المتكررة

1- ضع زر اسمه Button1 على الفورم
2- انسخ والصق الكود التالي

كود :

 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        checkforduplicate()
    End Sub

    Sub checkforduplicate()
        For a As Integer = 0 To ListBox1.Items.Count - 1
            For b As Integer = a + 1 To ListBox1.Items.Count - 1
                If ListBox1.Items(b) = ListBox1.Items(a) Then
                    ListBox1.Items.RemoveAt(b)
                    GoTo l1
                End If
            Next
        Next
        Exit Sub
l1:
        checkforduplicate()
    End Sub