[3asfa~mdmra]

شباب الرجاء الاهتمام بالموضع البرنامج سينتهي عند انتهاء هذه النقطة

---

لقد اجتهدت ووضعت الكود التالي

ولكن دون جدوي

كود :

  listbox1.Sorted = True
       listbox1.Items.Clear()

       Dim arr As String = listbox1.Items.Count.ToString()
       For Each s As String In arr
           If Regex.Match(s, "[a-zA-Z]").Value <> "" Then
               listbox1.Items.Add(s.Trim)
           Else
               listbox1.Items.Add(s.Trim)
           End If
       Next

ولكن النتجية في اللست بوكس صفر