■No35172に返信(ま〜さんの記事)
> Dim pdBackColor = TypeDescriptor.GetProperties(RichTextBox2).Find("BackColor", False)
> Lable.BackColor = DirectCast(pdForeColor.Converter.ConvertFromInvariantString("255,245,222"), Color)

pdBackColor/pdForeColor, RichTextBox2/Lable とバラバラですね。

> とやって見ましたがこれでは駄目なようで理解しきって無い私には難しい所です

理解できるまで弁士さんの回答を読み直すといいんじゃないでしょうか。

■No35181に返信(魔界の仮面弁士さんの記事)
> 本当は、そもそもフォーカスを受け取らないようにするか、
> あるいはせめて、前回フォーカスのあったコントロールに戻す方が
> 望ましいのですけれど…ひとまず手抜き実装ということで。

RichTextBox を非表示にして親に描画するとか。

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        RichTextBox1.Visible = False
        RichTextBox1.Text = "こんにちは！"
        RichTextBox1.SelectionStart = 5
        RichTextBox1.SelectionLength = 1
        RichTextBox1.SelectionColor = Color.White
        RichTextBox1.SelectionBackColor = Color.Red
    End Sub

    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
        Using bmp As New Bitmap(RichTextBox1.Width, RichTextBox1.Height)
            RichTextBox1.DrawToBitmap(bmp, New Rectangle(New Point(0, 0), RichTextBox1.Size))
            e.Graphics.DrawImage(bmp, RichTextBox1.Location)
        End Using
    End Sub

End Class