■No35212に返信(ゆりりんさんの記事)
> 何も印刷されなくなってしまいました。

『フォントサイズ』の指定、および、『描画位置の座標』は正しいですか?

MM_TEXT から MM_LOMETRIC に変更したのであれば、フォントサイズだけでは無く
描画座標も MM_LOMETRIC 単位系で計算しなおす必要があります。


描画位置を変更したくない場合は、GetMapMode と SetMapMode をペアで使うようにして、
フォント作成後、描画時に座標系を元に戻してみてください。先の私の回答では、フォントを
「MM_LOMETRIC あるいは MM_HIMETRIC で生成する」とは書きましたが、
「MM_LOMETRIC あるいは MM_HIMETRIC で描画する」とは書いていません。


MapMode は 1〜8 の 8 種類あります。指定するモードによっては、
単位だけでなく軸の向きも変化していることに注意してください。

　(A) X 座標が右に、Y 座標が上に向かって増加していくもの
　(B) X 座標が右に、Y 座標が下に向かって増加していくもの
　(C) SetWindowExtEx() / SetViewportExtEx() で単位、向き、スケーリングを指定するもの
　http://www.kumei.ne.jp/c_lang/sdk/sdk_55.htm
　http://yamatyuu.net/computer/program/sdk/gdi/mapmode/index.html

---

(A) 右向き、上向きな MapMode
　1 … MM_TEXT。1 デバイスピクセル単位の物理座標系。
　6 … MM_TWIPS。0.05ポイント単位(1/1440インチ単位)の論理座標系。

(B) 右向き、下向きな MapMode
　2 … MM_LOMETRIC。0.1 ミリ単位の論理座標系。
　3 … MM_HIMETRIC。0.01 ミリ単位の論理座標系。
　4 … MM_LOENGLISH。0.01 インチ単位の論理座標系。
　5 … MM_HIENGLISH。0.001 インチ単位の論理座標系。

(C) 単位、向き、スケーリングを任意に指定できる MapMode
　7 … MM_ISOTROPIC。異方性ユーザー定義単位系。任意の単位、向き、スケーリングを持つ。
　8 … MM_ANISOTROPIC。等方性ユーザー定義単位系。X 軸と Y 軸の 1 単位が等しい。

■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

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

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

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

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