[سامي محمد]

بعد أذنك أخ براهيم

كود :

Imports System.Text.RegularExpressions

كود :

For Each x As Match In Regex.Matches(RichTextBox1.Text, TextBox3.Text, RegexOptions.IgnoreCase)
            RichTextBox1.Select(x.Index, x.Length)
            RichTextBox1.SelectionColor = Color.Red
        Next

هذا الكود يتم تجاهل الحروف الكبيرة والغيرة على حدا سواء