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

السلام عليكم ورحمة الله وبركاته
اخي انشئ فورم وضع فيه 
ListBox -Button- TextBox
وفي حدث كليك البوتون اختر احد الكودين التاليين :
اكتب في مربع النص الكلمة التي تريد ان يتم حذف العنصر الذي يحتويها
الكود الاول:

كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       If ListBox1.Items.Count > 0 Then
           For i As Integer = 0 To ListBox1.Items.Count - 1
               If ListBox1.Items(i).Contains(TextBox1.Text) Then
                   ListBox1.Items.Remove(ListBox1.Items(i))
               End If
           Next
       End If
   End Sub

الكود الثاني طريقة اخرى 

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.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 Not strItems(i).Trim().Contains(TextBox1.Text) Then
                   ListBox1.Items.Add(strItems(i))
               End If
           Next
       End If
   End Sub