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

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

كود :

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

      Dim lines As New List(Of String)
      'انشاء ليست من اسطر الريتش
      lines.AddRange(RichTextBox1.Lines)

      For ln As Integer = lines.Count - 1 To 0 Step -1
          'حذف العنصر السطر الذي يحوي الكلمة
          If lines(ln).Contains("CQ-A4") Then
              lines.RemoveAt(ln)
          End If
      Next
      'اعادة الليست الى الريتش محذوفا منها السطر
      RichTextBox1.Lines = lines.ToArray

  End Sub