■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