[princelovelorn]

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

ضع الكود التالي في الزر الأول show في الفورم الأول

كود :

Form2.Show()

وضع الكود التالي في الزر البحث في الفورم الثاني

كود :

 Dim txt As String = TextBox1.Text
      Dim alltxt As String = Form1.RichTextBox1.Text
      If alltxt.Contains(txt) Then
          MsgBox("النص موجود")
      Else
          MsgBox("النص غير موجود")
      End If

المثال في المرفقات

تمنياتي لك بالتوفيق والنجاح