[3booody]

الكود يعمل جيدآ على اللغة الانكليزية
غير الخاصية RightToLeft للاداة وغير بهذا الشكل للغة العربية

كود :

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, .RightToLeft = Windows.Forms.RightToLeft.Yes, .TextAlign = ContentAlignment.MiddleLeft}
               RichTextBox1.SelectedText = ""
               RichTextBox1.Controls.Add(lbl)
           Else
               Exit Do
           End If
       Loop
   End Sub