[سامي محمد]

للبحث وتجاهل التشكيل
----------------------

كود :

 Dim Txt As String = Nothing
        For Each x As String In TextBox1.Text
            Txt &= x & "[ًٌٍَُِّْ]*"
        Next
        Dim M As MatchCollection
        M = Regex.Matches(RichTextBox1.Text, Txt)
        For Each x As Match In M
            RichTextBox1.Select(x.Index, x.Length)
            RichTextBox1.SelectionColor = Color.Red
            RichTextBox1.SelectionBackColor = Color.Yellow
        Next