[ابراهيم ايبو]

السلام عليكم اخي ابو روضة
هذا كود أخر لايعتمد عل جمل الفور 

كود :

Dim strItems(ListBox1.Items.Count - 1) As String ' انشاء مصفوفة
       ListBox1.Items.CopyTo(strItems, 0) '  مصفوفة فيها كل عناصرالليست بوكس
       Dim strItems2() As String = strItems.Distinct().ToArray() ' انشاء مصفوفة جديدة عناصرها من المصفوفة الاولى بدون تكرار
       ListBox1.Items.Clear()
       ListBox1.Items.AddRange(strItems2) '  اضافة عناصر المصفوفة الثانية الى الليست بوكس