[3asfa~mdmra]

السلام عليكم ورحمة الله وبركاته

بعد الصلاه على سيدنا محمد

صلى الله عليه وسلم

لاصحاب الخبرة والمعرفة

اريد كود لترتيب الاسماء

داخل اللست بوكس 

وشكراً

---

انا قد اجتهدت وزبطت معي والحمد لله

الكود هوا

كود :

       ListBox1.Sorted = True
ListBox1.Sorted = True
       ListBox1.Sorted = False
       Dim i As Integer
       Dim count = ListBox1.Items.Count
       For i = ListBox1.Items.Count - 1 To 0 Step -1
           ListBox1.Items.Add(ListBox1.Items(i))
       Next
       For i = 0 To count - 1
           ListBox1.Items.RemoveAt(ListBox1.SelectedItem)
       Next