[Ahmed_Mansoor]

اهلا اخي الكريم ، في البداية لاتستطيع تغيير لون جزء من النص في أداة التكست بوكس العادية أو الإفتراضية الموجودة في صندوق الأدوات الإفتراضي ، وإنما يجب عليك إستخدام أداة الـ RichTextBox التي تسمح بتغيير لون جزء معين من النص بداخلها ، لذلك لنفترض أنك أدرجت على الفورم ٢ ريتش تكست بوكس الأول بإسم T1 والثاني بإسم T2 , عندها سيكون كود المطابقة كالتالي :

كود :

Dim I As Integer

For I = 1 To Len(T1.Text)
    If Mid$(T1.Text, I, 1) <> Mid$(T2.Text, I, 1) Then
      T1.SelStart = I - 1: T2.SelStart = I - 1
      T1.SelLength = 1: T2.SelLength = 1
      T1.SelColor = vbRed: T2.SelColor = vbRed
    End If
Next