[kslawy]

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

هذا كود للأخ RamiLove :

كود :

Imports System.Text.RegularExpressions


Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ChangeTextColor(TextBox1.Text.Trim, RichTextBox1, Color.Green)
    End Sub


    Public Function ChangeTextColor(ByVal Text As String, ByVal RichTextBoxName As System.Windows.Forms.RichTextBox, ByVal Color As System.Drawing.Color)
        Dim T As MatchCollection
        Dim O As Integer
        Try
            For O = 0 To 999999999
                T = Regex.Matches(RichTextBoxName.Text, Text)
                Dim Indx As Match = T(O)
                RichTextBoxName.Select(Indx.Index, Indx.Length)
                RichTextBoxName.SelectionColor = Color
                RichTextBoxName.Select(RichTextBoxName.TextLength, 0)
            Next
        Catch
        End Try
        Return Text
        Return RichTextBoxName
        Return Color
    End Function
    
End Class

*****
****
***
**
*