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

السلام عليكم اخي الكريم
تفضل الكود وقمت بشرحه حتى تستفيد من الطريقة

كود :

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       If ListBox1.Items.Count > 0 Then ' اذا كانت الليست تحتوي على عناصر نكمل الكود
           Dim strItems(ListBox1.Items.Count - 1) As String ' انشاء مصفوفة طولها بطول عدد عناصر الليست بوكس
           ListBox1.Items.CopyTo(strItems, 0) '  نسخ عناصر الليست الى المصفوفة فيها كل عناصر الليست
           ListBox1.Items.Clear() ' افراغ الليس بوكس
           ' اعادة املاء الليست بوكس من المصفوفة عدا العناصر الفارغة
           For i As Integer = 0 To strItems.Length - 1
               If strItems(i).Trim() <> "" Then
                   ListBox1.Items.Add(strItems(i))
               End If
           Next
       End If
   End Sub

دمت بخير