[VB_Coder]

السلام عليكم

- الكود بعد تعديل عليه :

كود :

Private Sub RichTextBox1_Change()
        SetColorWords RichTextBox1, "vb6", vbRed
      End Sub

Private Function SetColorWords(rtb As RichTextBox, _
                                  sFindString As String, _
                                  lColor As Long) _
                                  As Integer

        Dim lFoundPos As Long
                                      Dim lFindLength As Long
        Dim lOriginalSelStart As Long
        Dim lOriginalSelLength As Long
        Dim lOriginalColor As Long
        
        Dim iMatchCount As Integer

        lOriginalSelStart = rtb.SelStart
        lOriginalSelLength = rtb.SelLength
        lOriginalColor = rtb.SelColor
        
        lFindLength = Len(sFindString)

         lFoundPos = rtb.Find(sFindString, 0, , rtfNoHighlight)

        While lFoundPos > 0

          iMatchCount = iMatchCount + 1

         rtb.SelStart = lFoundPos
         rtb.SelLength = lFindLength
          rtb.SelColor = lColor

          lFoundPos = rtb.Find(sFindString, _
            lFoundPos + lFindLength, , rtfNoHighlight)
       Wend
      
        rtb.SelStart = lOriginalSelStart
        rtb.SelLength = lOriginalSelLength
        rtb.SelColor = lOriginalColor

        SetColorWords = iMatchCount

End Function

- تحياتي .