[aldery]

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

هذا كود البحث عن كلمة أو نص محدد داخل التسكت بوكس

كود :

Private Sub FindAll(ByVal substring As String)
   Dim selectionLength As Integer = substring.Length
   Dim index As Integer = -1

   Do
       index = Me.TextBox1.Text.IndexOf(substring, index + 1)

       If index <> -1 Then
           Me.TextBox1.SelectionStart = index
           Me.TextBox1.SelectionLength = selectionLength

           If MessageBox.Show("Find next?", _
                              "Continue", _
                              MessageBoxButtons.OKCancel, _
                              MessageBoxIcon.Question) = Windows.Forms.DialogResult.Cancel Then
               Exit Do
           End If
       End If
   Loop Until index = -1
End Sub