[al9atl]

(02-01-20, 02:15 PM)3booody كتب : السلام عليكم ورحمة الله وبركاته

نعم اخي ممكن عملتك كود يضع ليبل بلون احمر فوق الكلمة المطابقة

وضعتها بزر بوتون

كود :

Dim lbl As Label = Nothing
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Do
           Application.DoEvents()
           Dim index As Integer = RichTextBox1.Find(TextBox1.Text)
           Dim p As Point = RichTextBox1.GetPositionFromCharIndex(index)
           If RichTextBox1.SelectedText <> "" Then
               lbl = New Label With {.Text = TextBox1.Text, .ForeColor = Color.Red _
                            , .Location = New Point(p.X, p.Y), .AutoSize = True}
               RichTextBox1.SelectedText = ""
               RichTextBox1.Controls.Add(lbl)
           Else
               Exit Do
           End If
       Loop
   End Sub

السلام عليكم
جربت الكود لكن لا يعمل جيدا عندما اختار كلمة لا توضع فوقها بدقة 
و عندما اختار جملة لا توضع فوقها نهائيا توضع في اعلى richtextbox