2024/05/04

フォーム上に図形や文字をGDI描画

• １．GDI描画の流れ
• ２．各ハンドルの取得と解放
• 　２－１．ウィンドウハンドルの取得
• 　２－２．DC（デバイスコンテキスト）の取得と解放
• 　２－３．描画用のペンやブラシ、フォントのハンドル
• 　　２－３－１．ペンの指定
• 　　　よりみち(コスメティックペンは不可能？)
• 　　２－３－２．ブラシの指定
• 　　　よりみち(CreateBrushIndirect関数の奇妙な現象)
• 　　２－３－３．フォントの指定
• 　　　よりみち(グラフィックモード)
• ３．描画道具の選択と削除
• 　３－１．描画道具の選択（SelectObject）
• 　　よりみち(既定値)
• 　３－２．描画道具の削除（DeleteObject）
• ４．描画作業
• 　４－１．線の描画
• 　　４－１－１．単線
• 　　　よりみち(Repaintメソッドの役割)
• 　　４－１－２．折れ線（複数の線の連続）
• 　４－２．円形関連の描画
• 　　４－２－１．楕円（Ellipse関数）
• 　　４－２－２．弓形（Chord関数）
• 　　４－２－３．扇形（Pie関数）
• 　４－３．矩形関係の描画
• 　　４－３－１．長方形の描画（Rectangle）
• 　　４－３－２．多角形の描画（Polygon）
• 　　　よりみち(多角形の塗りつぶし)
• 　４－４．点の描画
• 　４－５．文字の描画
• 　　４－５－１．文字を描画（TextOut関数）
• 　　４－５－２．文字を描画（DrawText関数）
• 　　４－５－３．文字の色（SetTextColor関数）
• 　　　よりみち(CLR_INVALID値)
• 　　４－５－４．文字の背景色設定（SetBkColor関数）
• 　　　よりみち(既定の背景色)
• 　　４－５－５．文字の背景モード設定（SetBkMode関数）
• ５．サンプルファイルの仕様
• 　５－１．使い方
• 　５－２．プログラム内容
• 　　５－２－１．ワークシート（Sheet1）
• 　　５－２－２．ユーザーフォーム（UserForm1）
• アプリ実例・関連する項目
• サンプルファイル

ユーザーフォームはユーザーとの情報のやり取りには欠かせない道具です。フォーム上には様々なコントロールを自由に配置でき、Imageコントロール等ではシート上のグラフや図形などを画像として表示することも可能です。
しかしコントロールを通してでは無く、Win32API関数を使用すれば「直接ユーザーフォーム上に図形や文字を描画」することが可能です。
Windowsのグラフィック関係のAPIをGDI（Graphics Device Interface）と言うようですが、今回はユーザーフォーム上に図形や文字を描画するGDI関数について紹介をします。

１．GDI描画の流れ

GDIで描画をするための手順を図０１で整理します。ここでは「Excelのユーザーフォーム上に描画」する関数の内で代表的なもの（図０１の赤文字の関数）を載せていますが、この他の関数も多数存在します。

図０１別窓
上図に沿って、流れを説明していきます。
まず、FindWindow関数で目的のウィンドウ（今回の場合はExcelのユーザーフォーム）のハンドルを取得します。「ハンドル」とは、プログラム内で使う固有のID番号みたいなものです。
その後、そのウィンドウの描画属性情報（＝デバイスコンテキスト：Device Contexts）のハンドルをGetDC関数で取得します。これ以降の描画準備や描画実施時には、このデバイスコンテキスト（DC）のハンドルが使われます。
描画する対象が決まった後は、描画道具の選択（SelectObject関数）をします。選択する道具には、ペン（直線や図形の外枠の描画）・ブラシ（図形内の塗りつぶし）・フォント（文字のFontやサイズ、斜体など）などがありますので、SelectObjectの前にCreatePenなどの関数を使って道具を作っておきます。
描画道具が選択できたら描画を開始します。線・図形・文字では描画の方法が異なりますので、各描画に合った関数を使用することになります。
なお前に描画したものが不要であれば、描画作業の前に「Repaintメソッド」で削除しておきます。削除しなければ重ね書きになります。（なお、ユーザーフォームの起動直後に描画を行う場合は、一旦Repaintの実行が必要。詳細「よりみち」参照）
描画が完了したら、SelectObject関数で描画道具を元（既定の道具）に戻します。
なお描画最後に「描画道具を元に戻す」という行動は、必須の作業ではありません。例えば異なる線種を次々に描画する場合、次々に違う線種の道具に交換するのですから、いちいち元に戻すのは手間が１つ多いことになります。
しかし描画道具には「既定の道具」が存在します。つまりSelectObject関数を使わなくても描画は可能なのです（「よりみち」参照）。ですので描画の後で道具を元に戻さないクセがあると、もし次の工程に「既定の道具で描画」の工程があった場合に、既定ではなく前回の道具での描画となってしまう事になります。
描画が全て完了したら、DeleteObjectで作成した描画道具を削除し、ReleaseDCでDC（＝デバイスコンテキスト）をメモリから解放します。

２．各ハンドルの取得と解放

２－１．ウィンドウハンドルの取得

まず描画対象のハンドルを取得するのが図０２のFindWindow関数です。
第１引数には「対象のクラス名」を、第２引数にはその「対象のウィンドウ名」を指定します。

役割	関数名	宣言
		引数	引数の内容	構造体	戻り値
対象ハンドルを取得	FindWindow	Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
		lpClassName lpWindowName	ｳｨﾝﾄﾞｳのｸﾗｽ名 ｳｨﾝﾄﾞｳ名	ー	成功=ｳｨﾝﾄﾞｳﾊﾝﾄﾞﾙ(以下ではhWnd) 失敗=0

図０２別窓
今回の場合、第１引数である描画対象は「Excelのユーザーフォーム」ですので、対象のクラスは「ThunderDFrame（Excel97より前の場合は ThunderXFrame）となります。なおExcel本体のクラス名は「XLMAIN」です。
第２引数のウィンドウ名は、ユーザーフォームの場合は下図の左側ような「フォーム名」ですので「Me.Caption」とする事でウィンドウ名が取得できます。一方Excel本体のウィンドウ名は下図の右側のように「ブック名 - Excel」となります。
（なお「ハイフンの両脇」は、それぞれ半角スペースを入れる必要があります。なお大文字小文字は区別しないようです。）

図０３別窓
もし第１引数にvbNullString（値ゼロの文字列＝Null相当の文字列）を指定した場合は、第２引数に指定したウィンドウ名を持つウィンドウが対象となります。反対に第２引数をvbNullStringにすると、第１引数で指定したウィンドウで最も前面にあるものが対象となるようです。
なお第１と第２の両方をvbNullStringにすると、最前面にあるウィンドウが対象となる　はずなのですが、試したところ「何のウィンドウのハンドルを取得したのか判らない（＝ハンドルからウィンドウを特定出来なかった）」結果となり、描画は行われませんでした。第１・第２とも、分かるのであれば出来るだけ指定した方が良さそうです。

２－２．DC（デバイスコンテキスト）の取得と解放

ウィンドウのハンドルが取得できたら、次はデバイスコンテキスト（DC）のハンドルを取得します。デバイスコンテキストとは、FindWindow関数で得た描画対象ウィンドウの「描画属性情報を保持している構造体」というのが正確な説明のようです。描画のためのペンやブラシを指定する対象であることから、描画道具を持つための「手」と表現しているサイトもあります。
そのデバイスコンテキストを取得・解放する関数が以下になります。

役割	関数名	宣言
		引数	引数の内容	構造体	戻り値
ﾃﾞﾊﾞｲｽｺﾝﾃｷｽﾄ(DC)を取得 (ｸﾗｲｱﾝﾄ領域のみ)	GetDC	Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
		hWnd	取得対象ｳｨﾝﾄﾞｳのﾊﾝﾄﾞﾙ	ー	成功=DCﾊﾝﾄﾞﾙ(以下ではhDC) 失敗=0
DCを取得 (非ｸﾗｲｱﾝﾄ領域を含む)	GetWindowDC	Declare PtrSafe Function GetWindowDC Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
		hWnd	取得対象ｳｨﾝﾄﾞｳのﾊﾝﾄﾞﾙ	ー	成功=DCﾊﾝﾄﾞﾙ(以下ではhDC) 失敗=0
DCの解放	ReleaseDC	Declare PtrSafe Function ReleaseDC Lib "user32" _ (ByVal hwnd As LongPtr, ByVal hdc As LongPtr) As Long
		hWnd hDC	対象ｳｨﾝﾄﾞｳのﾊﾝﾄﾞﾙ 解放対象のDCﾊﾝﾄﾞﾙ	ー	成功=1 失敗=0

図０４別窓
デバイスコンテキストを取得する関数には「GetDC」「GetWindowDC」の２種があります。両方ともデバイスコンテキストのハンドルを戻す事は同じですが、その範囲は図０５のように異なります。

図０５別窓
ウィンドウ（今回はユーザーフォーム）の範囲には「クライアント領域」と「非クライアント領域」があります。クライアント領域は、ユーザー側がボタンを配置したり描画を作成したりできる範囲（赤の点線枠）です。非クライアント領域はスクロールバーや境界線、タイトルバーやメニューバーを指し、ユーザー側から直接制御が不可能な範囲（青点線枠と赤点線枠の間）です。
GetDC関数ではクライアント領域（赤点線枠）のハンドルを戻しますが、GetWindowDC関数では非クライアント領域も含めた範囲（青点線枠）のハンドルを戻すことになります。
どちらの関数で取得しても良いですが、非クライアント領域には図０５の一番右側のように「描画が出来ない（＝描画実行しても描画されない）」ので、原点位置を理解し「クライアント領域に入るように描画作業」をする必要があります。
（図０５の一番右は、GetWindowDCでDCを取得したが、クライアント領域と思って作業してしまった時の結果です。）
また取得したデバイスコンテキストは、必要が無くなったら必ずReleaseDC関数でメモリーから解放する必要があります。解放しないとメモリー上に残ってしまい、パフォーマンスの低下や最悪動作異常になるようです。
一方FindWindow関数で得たウィンドウハンドル（変数hWnd）の方は、解放の手続きは不要のようです。単に見つける（"Find"）だけだからかもしれません。

２－３．描画用のペンやブラシ、フォントのハンドル

描画道具のハンドルをSelectObject関数に指定する事で「描画する道具を指定」することが出来ます。その前に描画道具を準備し、ハンドルを取得しておく事が必要です。描画道具にはペン・ブラシ・フォントがあります。

２－３－１．ペンの指定

描画用のペンの種類を指定し、そのハンドルを戻すのが図０６の「CreatePen」または「CreatePenIndirect」です。前者はペンのスタイル・幅・色を関数の引数に直接指定し、後者は同じ内容をLOGPEN構造体として指定するものです。

役割	関数名	宣言
		引数	引数の内容	構造体	戻り値
ペンを作成	CreatePen	Declare PtrSafe Function CreatePen Lib "gdi32" _ (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As LongPtr
		nPenStyle nWidth crColor	ペンのスタイル ペンの幅 ペンの色	ー	成功=ﾊﾝﾄﾞﾙ 失敗=0
ペンを作成 (CreatePenの 構造体Ver)	CreatePenIndirect	Declare PtrSafe Function CreatePenIndirect Lib "gdi32" (lpLogPen As LOGPEN) As LongPtr
		lpLogPen	[ﾍﾟﾝの情報 LOGPEN] 　ペンのスタイル 　幅(POINTAPI構造体) 　色	Type LOGPEN 　lopnStyle As Long 　lopnWidth As POINTAPI 　lopnColor As Long End Type Type POINTAPI 　x As Long 　y As Long End Type	成功=ﾊﾝﾄﾞﾙ 失敗=0

図０６別窓
第１引数・第１要素のペンの「スタイル」には、以下のような値を指定します。なおVBAではPS_SOLID等の定数は定義されていないため、事前に定数設定をしておくか、または値を直接指定します。

(定数)	値	内容
PS_SOLID	0	実線
PS_DASH	1	破線(ペン幅が1以下で有効)
PS_DOT	2	点線(ペン幅が1以下で有効)
PS_DASHDOT	3	一点鎖線(ペン幅が1以下で有効)
PS_DASHDOTDOT	4	二点鎖線(ペン幅が1以下で有効)
PS_NULL	5	空のペン。描画は行われない
PS_INSIDEFRAME	6	実線(ペン幅が1超で有効) ﾌﾚｰﾑ境界線の時、ﾌﾚｰﾑ内に収まる様に描画

図０７別窓
第２引数のペンの「幅（≒太さ）」は、ピクセル単位の整数で指定します。なおゼロを指定すると1を指定した事になります。
なおLOGPEN構造体のペン幅（第２要素）には、POINTAPI構造体のXの方に値を入れます。その場合Y側は空でOKです。
またスタイルとしてPS_DASH等（値として1～4）は「幅が１以下で有効」ですが、そのスタイルの場合にペン幅として２以上を指定してしまうと、スタイルにPS_SOLIDを指定した事になってしまいますので注意が必要です。
第３引数・第３要素のペンの「色」は、RGB関数などでLong型の値を指定します。
ペンのスタイル・幅・色のサンプルを下記に示します。

図０８別窓

(コスメティックペンは不可能？) ペンには「ジオメトリック（幾何学的）ペン」と「コスメティック（装飾的）ペン」の２種があり、上記で説明したCreatePen関数とCreatePenIndirect関数は、ジオメトリックペンとなります。 一方、コスメティックペンはExtCreatePen関数で設定できるはずなのですが、どのように設定しても正しいハンドルを戻してくれませんでした。 コスメティックペンは「斜線や曲線を描画する場合に滑らかな線を描画できる」との説明だったので、結構期待していたのですが、ExcelのVBAでは不可能なのかもしれません。残念です。

２－３－２．ブラシの指定

描画用のブラシの種類を指定し、そのハンドルを戻すのが図０９です。

役割	関数名	宣言
		引数	引数の内容	構造体	戻り値
ブラシ作成 (塗りつぶし)	CreateSolidBrush	Declare PtrSafe Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As LongPtr
		crColor	ブラシの色	ー	成功=ﾊﾝﾄﾞﾙ 失敗=0
ブラシ作成 (ハッチ)	CreateHatchBrush	Declare PtrSafe Function CreateHatchBrush Lib "gdi32" _ (ByVal nIndex As Long, ByVal crColor As Long) As LongPtr
		nIndex crColor	ハッチスタイル ブラシの色	ー	成功=ﾊﾝﾄﾞﾙ 失敗=0
ブラシ作成 (塗りつぶし or ハッチ)	CreateBrushIndirect	Declare PtrSafe Function CreateBrushIndirect Lib "gdi32" _ (lpLogBrush As LOGBRUSH) As LongPtr
		lpLogBrush	[ﾌﾞﾗｼの情報 LOGBRUSH] 　ブラシスタイル 　ブラシの色 　ハッチスタイル	Type LOGBRUSH 　lbStyle As Long 　lbColor As Long 　lbHatch As LongPtr End Type	成功=ﾊﾝﾄﾞﾙ 失敗=0

図０９別窓
CreateSolidBrush関数は「指定した色で単純に塗りつぶす」機能です。引数のブラシの色には、RGB関数等でLong型の値を指定します。
CreateHatchBrush関数は、塗りつぶしでは無く「ハッチング（≒模様）」をする機能です。第１引数には、以下の表内から「ハッチスタイル」を指定します。また第２引数には、上記同様に色を指定します。

(定数)	値	内容
HS_HORIZONTAL	0	水平ハッチ
HS_VERTICAL	1	垂直ハッチ
HS_FDIAGONAL	2	45度右下がりのハッチ
HS_BDIAGONAL	3	45度右上がりのハッチ
HS_CROSS	4	水平と垂直のクロスハッチ
HS_DIAGCROSS	5	45度のクロスハッチ

図１０別窓
CreateBrushIndirect関数にはLOGBRUSH構造体で情報を渡します。構造体内にはスタイル・色・ハッチスタイルの３要素があり、第１要素で「塗りつぶし」または「ハッチング」を切り替えられ、ハッチングを選んだ場合は第３要素でハッチ種を選べます。
第１要素「lbStyle」には、ブラシのスタイルを図１１から指定します。

(定数)	値	内容
BS_SOLID	0	純色のブラシ
BS_HOLLOW または BS_NULL	1	透明ブラシ
BS_HATCHED	2	ハッチブラシ
BS_PATTERN	3	ﾒﾓﾘﾋﾞｯﾄﾏｯﾌﾟのﾊﾟﾀｰﾝﾌﾞﾗｼ（BMPのﾊﾝﾄﾞﾙ）
BS_DIBPATTERN	5	DIB※1仕様のﾊﾟﾀｰﾝﾌﾞﾗｼ（DIBのﾊﾝﾄﾞﾙ）
BS_DIBPATTERNPT	6	DIB仕様のﾊﾟﾀｰﾝﾌﾞﾗｼ（DIBへのﾎﾟｲﾝﾀ）

※1 DIB(Device-Independent Bitmap)=デバイスに依存しないビットマップ
図１１別窓
BS_SOLID（値＝0）は、第２要素（lbColor）で指定した色で塗りつぶします。
BS_HOLLOW or BS_NULL（値＝1）は、塗りつぶしやハッチングをせず、元の背景（ここではフォームの背景）を残します。
例えば楕円形をEllipse関数で描画させると「楕円の内部は塗りつぶし（既定では白色）」されてしまいますが、この「透明ブラシ」を使用することで「外周の枠のみ」を描画することが出来ます。
BS_HATCHED（値＝2）は、第２要素（lbColor）で指定した色で、第３要素（lbHatch）に指定する模様（図１０）をハッチングします。
なお「BS_PATTERN」より下の３つのブラシの使い方については、調べてはみたのですが良く分かりませんでした。VBAでは使用出来ないのかもしれないので、文字色を淡くしてあります。
第２要素「lbColor」には、ブラシの色を指定します。
第３要素「lbHatch」は、第１要素にBS_HATCHED（値＝2）を指定した時は、図１０の中からハッチスタイルを選択します。
なお第１要素にBS_SOLID（値＝0）を指定した時は、第３要素は無視されます（何を指定しても塗りつぶし）。
また第１要素にBS_HOLLOW または BS_NULL（値＝1）を指定した時も、第３要素は無視です（何を指定しても非表示）。
３つの関数で指定する「ブラシの色」「ハッチスタイル」「ブラシスタイル」を振って描画したのが下記です。

図１２別窓
一番右側はCreateBrushIndirect関数のもので、LOGBRUSH構造体のブラシの色には黒色、ハッチスタイルにはHS_DIAGCROSS（値=5）を設定した上で、ブラシスタイルを0・1・2 と振ったものです。

(CreateBrushIndirect関数の奇妙な現象) CreateBrushIndirect関数のLOGBRUSH構造体の第１引数に「ハッチブラシ（値=2）」を指定し、第３引数に図１０の範囲を超えた値を指定すると、以下のような奇妙な現象が発生します。第３引数は0～5の範囲と決められています。 　①第３引数＝6～7　・・・第２引数に指定した色で塗りつぶし 　②第３引数＝8～9　・・・赤色で塗りつぶし 　③第３引数＝10～　またはマイナス値・・・白色で塗りつぶし ①は「指定値以外を指定したので、ハッチでは無く塗りつぶし」となるのは分かるのですが、②③は全く理解できません。もしプログラムでハッチ種類を切り替える際は御注意下さい。 また第１要素にBS_DIBPATTERN（値＝5）やBS_DIBPATTERNPT（値＝6）を指定した場合は、第３要素には「DIB（デバイスに依存しないビットマップ）へのハンドル」や「DIBへのポインタ」を指定するようですが、ビットマップの取り扱い方法自体が良くわからないため、説明を省いています。

ブラシには、これ以外にも「CreatePatternBrush」や「CreateDIBPatternBrush」などの関数があるようです。両方とも図１１の下半分と同様、ビットマップの絵を繰り返し貼り付けて模様にする機能のようですが、VBAとしてどう設定すれば良いのか辿り着けませんでした。

２－３－３．フォントの指定

文字を描画するためのフォントを指定し、そのハンドルを戻すのが図１３です。「CreateFont」は引数に直接フォント情報を指定するのに対し、「CreateFontIndirect」はLOGFONT構造体に格納した後まとめて指定する方法です。内容は同一のようです。
なお、これ以外にもフォント指定の関数はいくつかありそうです。

役割	関数名	宣言
		引数	引数の内容	構造体	戻り値
論理ﾌｫﾝﾄ を作成	CreateFont	Declare PtrSafe Function CreateFont Lib "gdi32" Alias "CreateFontA" _ (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, _ ByVal W As Long, ByVal i As Long, ByVal u As Long, ByVal S As Long, _ ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, _ ByVal PAF As Long, ByVal F As String) As LongPtr
		H W E O W I u S C OP CP Q PAF F	文字の高さ 平均文字幅(論理単位) 文字送り方向とX軸の角度(1/10度単位) 各文字のﾍﾞｰｽﾗｲﾝとX軸の角度(1/10度単位) ﾌｫﾝﾄ太さ(0=既定､400=標準､700=太字) 斜体か否か(斜体=True) 下線有無(下線付き=True) 取消線有無(取消線有り=True) ﾌｫﾝﾄ文字ｾｯﾄ(既定=DEFAULT_CHARSET) 実出力精度(既定動作=OUT_DEFAULT_PRECIS) ｸﾘｯﾌﾟ精度(既定動作=CLIP_DEFAULT_PRECIS) 出力品質(論理Fontと実物理Fontの一致度) Fontのﾋﾟｯﾁとﾌｧﾐﾘ(ﾌｫﾝﾄの見た目) Font名の文字列	ー	成功=ﾊﾝﾄﾞﾙ 失敗=0
論理ﾌｫﾝﾄ を作成 (CreateFont の構造体Ver)	CreateFontIndirect	Declare PtrSafe Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" _ (lpLogFont As LOGFONT) As LongPtr
		lpLogFont	フォント情報(LOGFONT構造体) 　文字セルまたは文字の高さ 　平均文字幅 　文字送りの方向とX軸との角度 　ベースラインとX軸との角度 　フォントの太さ 　イタリック体指定 　下線付き指定 　打ち消し線付き指定 　キャラクタセット 　出力精度 　クリッピングの精度 　出力品質 　ピッチとファミリ 　フォント名	Type LOGFONT 　lfHeight As Long 　lfWidth As Long 　lfEscapement As Long 　lfOrientation As Long 　lfWeight As Long 　lfItalic As Byte 　lfUnderline As Byte 　lfStrikeOut As Byte 　lfCharSet As Byte 　lfOutPrecision As Byte 　lfClipPrecision As Byte 　lfQuality As Byte 　lfPitchAndFamily As Byte 　lfFaceName As String End Type	成功=ﾊﾝﾄﾞﾙ 失敗=0

図１３別窓
文字高さ（H、lfHeight）は、いわゆるフォントサイズ（文字の縦サイズ）をピクセル単位で指定します。通常VBA内ではフォントはポイント単位で扱っていますので、注意が必要です。
平均文字幅（W、lfWidth）は、文字の横サイズですが、ゼロ値を指定することで条件に最も近い値が自動的に選択されます。
ちなみに14ポイント（ピクセルだと、14/0.75）の文字に対して、lfHeight・lfWidthを指定したのが図１４の上段になります。

図１４別窓
「lfHeightのみを指定」したのが左側で通常の文字表示です。一方「lfWidthに高さの半分を指定」すると中央の状態になりますが、少しゴシックっぽくなっているのが分かるかと思います。
これは、まず高さとしての14ポイントをピクセルに変換すると、14 ÷ 0.75 = 18.67ピクセルとなりますが、lfHeightはLong型ですので小数点は無く「19ピクセルを指定」した事になります。また幅（lfWidth）は高さの約半分なので 14 ÷ 0.75 ÷ 2 = 9.33ピクセルとなり、「9ピクセル」に丸められます。
つまり「高さ:幅＝19 : 9 」を指定した事になり、文字のバランスが崩れてゴシックっぽく見えるのではないかと考えられます。
一方図１４の下段は、14ポイントに近い「高さ=18ピクセル」で描画したものですが、この2:1を守った設定だとゴシックっぽくなることなく、中央下段のように正しく表示されるようです。
また、文字幅に文字高さと同じ値を指定すると、一番右のように「２倍幅」の文字になります。但し一番右の上と下とでは少し文字幅が異なって見えますが、これが19ピクセルと18ピクセルの差なのか否かは良く分かりません。
文字送り方向とX軸との角度（E、lfEscapement）は、文字列全体をX軸に対し何度傾けるかの設定です。1/10度単位ですので、10度傾斜の時は値＝100を指定します。
ベースラインとX軸との角度（O、lfOrientation）は、文字１つ１つをX軸に対し何度傾けるかの設定のようです。こちらも1/10度単位の設定です。
各設定によりどの様な描画になるのかを確かめたのが図１５ですが、ユーザーフォーム上での設定では「lfEscapementが有効」で「lfOrientationは無視」されるようです。ただし、基本的には「lfEscapement」と「lfOrientation」とには同じ値を指定するように　との事です。

図１５別窓

(グラフィックモード) この「lfEscapement」と「lfOrientation」の設定値は「グラフィックモードがGM_ADVANCEDの時には、別々に設定可」と説明されています。これを確かめるため、GetGraphicsMode関数でユーザーフォームのモードを調べてみると、GM_COMPATIBLE（値＝1）でした。 つまりExcelのユーザーフォームは「16ビットWindowsと互換性のあるモード」で古いタイプのために、細かな設定が出来ないという事のようです。 今回ユーザーフォーム以外は調べていませんがGM_ADVANCEDモードの場所が存在すれば、文字を階段状に表示するような事も可能かもしれません。

フォント太さ（W、lfWeight）は、フォントの太さを表す0～1000の値を指定します。既定太さにするには「0」を指定します。太さは以下のように分類されています。

(定数) 値 FW_DONTCARE 0 FW_THIN 100 FW_EXTRALIGHT, FW_ULTRALIGHT 200 FW_LIGHT 300 FW_NORMAL, FW_REGULAR 400

(定数) 値 FW_MEDIUM 500 FW_SEMIBOLD, FW_DEMIBOLD 600 FW_BOLD 700 FW_EXTRABOLD, FW_ULTRABOLD 800 FW_HEAVY, FW_BLACK 900

図１６別窓
VBAでは定数は直接扱えませんが、図１６の定数名を見ると「文字を徐々に太く表示」出来るようなイメージを持ってしまいます。そこで、実際にlfWeight値をスライドしてみたのが図１７です。文字高さ（lfHeight）もいくつか試してみました。

図１７別窓
図１７で分かるのは「400と700の間で切り替わり、太さの種類としては２種類」ということです。切り替わりをもう少し詳しく調べてみると「550以下が標準」「551以上が太字」となっています。
イタリック体（I、lfItalic）、下線付き（U、lfUnderline）、打ち消し線（S、lfStrikeOut）は、Excelのワークシートでも良く使われる機能です。各項目をON（True 又は 1 を指定）にすることで、図１８のような表示となります。

図１８別窓
キャラクタ文字セット（C、lfCharSet）は、描画する文字が何語なのかを指定します。下記表内から選択します。

(定数) 値 内容 ANSI_CHARSET 0 ANSI文字 DEFAULT_CHARSET 1 指定なし SYMBOL_CHARSET 2 標準シンボル MAC_CHARSET 77 Macintosh文字 SHIFTJIS_CHARSET 128 シフトJIS(日本語) HANGUL_CHARSET 129 ハングル文字 JOHAB_CHARSET 130 韓国語文字(Johab コード) GB2312_CHARSET 134 中国語の簡体字 CHINESEBIG5_CHARSET 136 中国語の繁体字

(定数) 値 内容 GREEK_CHARSET 161 ギリシャ語文字 TURKISH_CHARSET 162 トルコ語文字 HEBREW_CHARSET 177 中東語(ヘブライ語)文字 ARABIC_CHARSET 178 中東語(アラビア語)文字 BALTIC_CHARSET 186 バルト語文字 RUSSIAN_CHARSET 204 キリル文字 THAI_CHARSET 222 タイ語文字 EASTEUROPE_CHARSET 238 東欧諸国の発音区別符号 OEM_CHARSET 255 O/S依存の文字

図１９別窓
Microsoftでは「（Windows NT/2000以降は）DEFAULT_CHARSETを指定すると、文字セットは現在のシステムロケール（言語と地域）に基づいた値に設定される」とあり、PCが日本語設定になっている場合は「SHIFTJIS_CHARSET」となるようです。
但し安定的に使用するには「DEFAULT_CHARSET以外をキチンと選べ」とも書いてありますので、日本語を描画する場合は「SHIFTJIS_CHARSET（値=128）」、欧文の場合は「ANSI_CHARSET（値=0）」を指定するのが良さそうです。
出力精度（OP、lfOutPrecision）は、描画するフォントの精度を指定します。
「指定したフォントと、実際に描画するフォントをどの程度一致させるかを下記表から選択」と、Microsoftや他サイトでは説明されています。

(定数)	値	内容
OUT_DEFAULT_PRECIS	0	デフォルトの動作に任せる
OUT_STRING_PRECIS	1	使用せず ※2
OUT_CHARACTER_PRECIS	2	使用せず
OUT_STROKE_PRECIS	3	使用せず ※2
OUT_TT_PRECIS	4	同名フォントが複数存在する場合、TrueTypeフォントを選択
OUT_DEVICE_PRECIS	5	同名フォントが複数存在する場合、デバイスフォントを選択
OUT_RASTER_PRECIS	6	同名フォントが複数存在する場合、ラスタフォントを選択
OUT_TT_ONLY_PRECIS	7	TrueTypeフォントのみを選択。TrueTypeが無い場合はデフォルト動作
OUT_OUTLINE_PRECIS	8	TrueTypeフォントやその他のアウトラインベースのフォントを選択

図２０別窓
正直、何を言っているのか全く分かりません。フォントの知識が乏しい事も原因かと思いますが、説明の中の「出力精度」「一致度合」に対して、表の内容がまさに一致していないのです。
そこでlfOutPrecision値を振って描画し、出力される文字を見比べてみました。まずはラスタフォントです。

図２１別窓
「Courier」はラスタフォント（＝ビットマップフォント）で、塗り潰す座標をデータとして持っているフォントですので、図２１のように「目の粗い文字」となっています。
但し「OUT_TT_ONLY_PRECIS（値＝7）」だけはスムーズな文字です。この値の説明は図２０では「TrueTypeフォントのみを選択。TrueTypeが無い場合はデフォルト動作」となっています。つまりCourierフォントはTrueTypeでは無いためデフォルトフォント（TrueType？）に切り替わり、スムーズな文字になっていると思われます（この「デフォルト」が、どのフォントなのかは良く分かりません）。
ちなみにTrueTypeフォントを使い、同様にlfOutPrecision値を振って描画したのが下記です。

図２２別窓
図２２は「MS ゴシック」、つまりTrueTypeフォントなので、どのlfOutPrecision値でも同じ文字の描画となるようです。
なお図２２の字体は、図２１のOUT_TT_ONLY_PRECIS（値＝7）の字体とは違う（図２２の方が細長く、Iの字の上端・下端に張りが出ている）ため、デフォルトフォントはMS ゴシックでは無さそうです。
以上から、lfOutPrecisionは「出力精度」とか「実フォントと指定フォントの一致度」というよりも、「複数フォントが候補となった場合、その絞り込み方法」という説明の方が正しい気がします。
そこで実際問題としてlfOutPrecision引数にどの値を指定するかですが、図２１の結果からみると「OUT_TT_ONLY_PRECIS（値＝7）」となります。しかし例えば、フォントとして意図して「Courier（ラスタフォント）」を指定した時には、そのフォント指定は「全く無視」されてしまう結果となります。フォント種類としてTrueTypeやOpenTypeが多いことを考えると「OUT_DEFAULT_PRECIS（値＝0）」で良いのではと思います。
なおWin32APIのEnumFontFamiliesEx関数で「システム内の名前付きフォントの一覧を取得」する事が出来ますが、その時には以下のような値が戻り、その値は図２０の※2の値に対応するもののようです。
　・ラスタフォント（＝ビットマップフォント）の時 →「OUT_STRING_PRECIS（値=1）」
　・TrueTypeフォント、アウトラインベースのフォント、ベクタフォントの時 →「OUT_STROKE_PRECIS（値=3）」
　（Windows 95/98の場合にTrueTypeフォントやベクタフォントの時 →「OUT_STROKE_PRECIS（値=3）」）
クリッピング精度（CP、lfClipPrecision）は、「クリッピング領域の一部外にある文字をクリップ」する方法を指定します。指定の方法は、図２３の項目の中から１つ又は複数を選択します。

(定数)	値	内容
CLIP_DEFAULT_PRECIS	0	既定の動作に任せる。
CLIP_CHARACTER_PRECIS	1	使用しない。
CLIP_STROKE_PRECIS	2	使用しない ※3
CLIP_MASK	15	使用しない
CLIP_LH_ANGLES	16	全フォントの回転方向が座標系の方向に従う
CLIP_TT_ALWAYS	32	使用しない
CLIP_EMBEDDED (CLIP_ENCAPSULATE ?)	128	読み取り専用の埋め込みフォント使用時は必須

図２３別窓
「クリッピング領域」とは、今回対象としているExcelのユーザーフォームでいうと、図２４の「描画が可能な範囲」であり、図０５で示した「クライアント領域」と同じ範囲を示しているようです。

図２４別窓
また「クリッピング領域外の文字をクリップする」ということは、非クライアント領域（図０５参照）には描画させないように「文字を切り取る」という意味のようです。（間違っていたら、ごめんなさい）
この考え方を確認するために、ユーザーフォーム上に描画した最後の文字が中途半端に隠れるようにして、上の表（図２３）の各値を指定してみたのですが、描画された文字には全く変化ありませんでした。
なお「CLIP_LH_ANGLES（値＝16）」と「CLIP_EMBEDDED（値＝128）」の内容については、今回のExcelでは無関係そうなので深くは調べませんでしたが、Excelのユーザーフォーム上で文字を描画するだけであれば「CLIP_DEFAULT_PRECIS（値＝0）」で問題なさそうです。
なおフォント列挙時には図２３の※3の値の値が返されるそうですが、これ以上の情報は掴めませんでした。
出力品質（Q、lfQuality）は、「設定するフォントの属性と実フォントの属性をどの程度一致」させるかを指定するもので、下図の中から指定します。

(定数)	値	内容
DEFAULT_QUALITY	0	フォントの文字品質は重視されない
DRAFT_QUALITY	1	フォントの文字品質は、PROOF_QUALITY を使用したときほどは重視されない
PROOF_QUALITY	2	フォントの文字品質が、論理フォントの属性を正確に一致させることよりも重視される
NONANTIALIASED_QUALITY	3	アンチエイリアス処理は一切行われない
ANTIALIASED_QUALITY	4	アンチエイリアスをサポートしているフォントのサイズが小さ過ぎたり大き過ぎる場合に、アンチエイリアス処理が実行される
CLEARTYPE_QUALITY	5	クリアタイプを利用してテキストを描画

図２５別窓
図２５の内容を見ると、「文字品質」と「アンチエイリアス」という言葉が出てきます。そこで文字品質の悪いラスタフォントを使い、lfQuality値を振って描画してみたのが下図です。

図２６別窓
「PROOF_QUALITY（値＝2）」だけが設定よりも文字が小さく、他はラスタフォント特有のギザギザが目立つ描画です。
PROOF_QUALITYは「設定フォントを一致させることよりも、文字品質を重視」しますので、サイズ（ここでは55ピクセル）を無視して文字の輪郭がスムーズに見えるまでサイズを縮めているものと思われます。
またアンチエイリアス（ギザギザの部分を中間色を使って目立たなくする）をサポートしているMSゴシックを使い、lfQuality値を振って描画してみたのが下図です。

図２７別窓
良く見ると「NONANTIALIASED_QUALITY（値＝3）」だけが、ギザギザが目立つ気がします。NONANTIALIASED_QUALITYは「アンチエイリアス処理をしない」という指定なので、ギザギザが残ったまま描画されたと思われます。
以上からlfQuality引数としては、「DEFAULT_QUALITY（値＝0）」を指定しておけば大きな問題はなさそうです。
ピッチとファミリ（PAF、lfPitchAndFamily）は、「フォントのピッチ」「フォントファミリ」を指定します。
「ピッチ」は文字間の幅で、可変幅と固定幅があります。値としては図２８から選択します。
固定幅は「どんな文字でも１文字１文字の幅は同じ」です。可変幅は「"i" や "l" のように横に広がりの少ない文字は文字幅を狭く」することで、見易い文字列にするものです。

ピッチ定数

(定数)	値	内容
DEFAULT_PITCH	0	既定
FIXED_PITCH	1	固定幅
VARIABLE_PITCH	2	可変幅

図２８別窓
「ファミリ」はフォントの外観です。希望する正確な書体が入手できない場合にフォントを指定するためのもの　との説明がされています。ファミリの値は図２９から選択します。

ファミリ定数

(定数)	値	内容
FF_DONTCARE	0	ファミリを指定せず。又はファミリ不明
FF_ROMAN	16	可変ストローク幅＋セリフ（文字のひげ飾り）付きフォント（MSR Serif、Times Roman 等）
FF_SWISS	32	可変ストローク幅＋セリフ無しフォント（MS Sans Serif、Helvetica 等）
FF_MODERN	48	固定ストローク幅＋セリフ付き or セリフ無しフォント（Pica、Elite、Courier NewR等）
FF_SCRIPT	64	手書き風フォント（Script、Cursive 等）
FF_DECORATIVE	80	装飾付きフォント（Old English 等）

図２９別窓
このlfPitchAndFamily引数を説明しているサイトでは「下位2ビットでピッチを、上位4ビットでファミリを指定」とあります。最初意味が良く分からなかったので色々試してみたところ「８ビットを上下に分け、その下位４ビット中の下２ビットでピッチを、上位４ビットでファミリを指定」という事のようです。合わせた８ビットは図３０のような組み合わせになるかと思います。

図３０別窓
このピッチとファミリの組み合わせ値をlfPitchAndFamily引数に指定して文字を描画した結果が、図３１です。なおフォント名（lfFaceName引数）には空文字を指定しています。

図３１別窓
図３１からは以下のような事が分かります。
　・全部で「４種類のフォント」が描画される
　・ピッチ（固定幅か可変幅か）は指定した通りに文字描画される
　・DEFAULT_PITCHは、ほとんどがVARIABLE_PITCHを指しているが、FF_MODERNの時のみFIXED_PITCHとなる
　・FF_SWISS（値＝32）はセリフ（ひげ飾り）無しとなっているのに、固定幅ではセリフ有りになる
　・FF_SCRIPT（値＝64）やFF_DECORATIVE（値＝80）は、手書き風・装飾付きのフォントにはならない
なお、図３１はフォント名を空文字指定した結果であり、フォント名を指定（例えば MSゴシック）すると全て同じフォントとなります。ですので「lfPitchAndFamily引数は、フォント名を指定しなかった時に、既定フォントを指定」するものなのかもしれません。
ですので既定フォントとする場合には、どのような文字外観が良いかを考えてlfPitchAndFamily引数を指定すべきと考えます。
なお、下位３桁目はTrueTypeフォント（TMPF_TRUETYPE = 4）の設定、下位４桁目は等幅フォント（MONO_FONT = 8）の設定のようですが、値を振ってみても描画文字は図３１と変わりませんでしたので、無視しても良さそうです。
また１ビット目と2ビット目の両方にフラグが立つとき（例えば 0000 0011）には、2ビット目が有効になるようです。
フォント名（F、lfFaceName）は、文字通りフォント名を指定します。
但し指定する文字列には厳密さが求められ、半角・全角や大文字・小文字、スペース有無など一部でも異なると「無指定＝既定のフォント」と判断されてしまうようです。
確実に指定する方法としては、以下のように「セルのフォント名をコピーし、コードに貼り付け」る手法です。今のところ、うまく動作しています。

図３２別窓

３．描画道具の選択と削除

描画道具であるペン・ブラシ・フォントのハンドルが準備できたら、描画する内容に対応した道具を「SelectObject関数」を使って選択します。また描画道具が不要になったら「DeleteObject関数」で、道具を削除します。

役割	関数名	宣言
		引数	引数の内容	構造体	戻り値
指定ｵﾌﾞｼﾞｪｸﾄを選択	SelectObject	Declare PtrSafe Function SelectObject Lib "gdi32" _ (ByVal hDC As LongPtr, ByVal hObject As LongPtr) As LongPtr
		hDc hObject	DCのハンドル 描画道具ｵﾌﾞｼﾞｪｸﾄのﾊﾝﾄﾞﾙ	ー	成功=前Objﾊﾝﾄﾞﾙ
ｵﾌﾞｼﾞｪｸﾄを削除し解放	DeleteObject	Declare PtrSafe Function DeleteObject Lib "gdi32" (ByVal hObject As LongPtr) As Long
		hObject	描画道具ｵﾌﾞｼﾞｪｸﾄのﾊﾝﾄﾞﾙ	ー	成功=0以外 失敗=0

図３３別窓

３－１．描画道具の選択（SelectObject）

SelectObject関数は、描画道具を選択します。
第１引数（hDc）にはデバイスコンテキストのハンドルを指定します。
第２引数（hObject）には、作成した道具のハンドルを指定します。
SelectObject関数で戻るのは「今まで選択していた描画道具のハンドル」です。一番初めにSelectObjectを実行した時には「既定の道具のハンドル」となります。
図０１の流れ図で示した「描画道具を元に戻す」場合には、この戻り値を「再度SelectObject関数に指定」することで実現できます。

(既定値) SelectObject関数で道具を選択する前の「既定の道具」は、下記のように決まっているようです。 道具 (定数) 値 ペン BLACK_PEN 7 ブラシ WHITE_BRUSH 0 フォント SYSTEM_FONT 13 図３４別窓 この既定の道具のみを使って描画したのが下記になります。 図３５別窓 ちなみに、この既定の道具のハンドルを事前に得ることも可能です。下記の「GetStockObject関数」に図３４の値を引数指定することで、ハンドルが取得できます。 役割 関数名 宣言 引数 引数の内容 構造体 戻り値 既定値のハンドルを表示 GetStockObject Declare PtrSafe Function GetStockObject Lib "gdi32" (ByVal nIndex As Long) As LongPtr nIndex 既定値 ー 成功=ﾊﾝﾄﾞﾙ 図３６別窓 このGetStockObject関数を活用することで、一通り作業が終了した時点で道具を初期状態に戻す事も可能です。

３－２．描画道具の削除（DeleteObject）

DeleteObject関数は、描画道具を削除します。第１引数（hObject）には、作成した道具のハンドルを指定します。
なお、削除後でも道具のハンドル番号（LongPtr型）は取得できるのですが、そのハンドルで再びSelectObjectしても「既定値での描画」となります（≒描画道具は死んでいる）。

４．描画作業

以下では、線・円形・矩形・点・文字の描画について紹介しますが、この描画に関するAPI関数は実に多くの種類があります。ここで示した関数はその一部ですので、あらかじめ御了承下さい。
他の関数について調べる場合は、検索サイトで「API」＋「GDI」等と検索してみてください。

４－１．線の描画

４－１－１．単線

１本の単線を引くには、以下のような手順となります。
　描画する線の始点の位置に移動（MoveToEx関数） → 描画する線の終点を指定（LineTo関数）
なお線を引いた後は、LineTo関数に指定した終点が「現在の位置」に変わります。

役割	関数名	宣言
		引数	引数の内容	構造体	戻り値
指定した点を 新しい現在位置にする	MoveToEx	Declare PtrSafe Function MoveToEx Lib "gdi32" _ (ByVal hdc As LongPtr, ByVal X As Long, ByVal Y As Long, lpPoint As POINTAPI) As Long
		hDc x, y lpPoint	DCﾊﾝﾄﾞﾙ 新しい現在位置のxy座標 それまでの現在位置(POINTAPI構造体)	Type POINTAPI 　x As Long 　y As Long End Type	成功=0以外 失敗=0
現在位置と指定終点を 結ぶ直線を描画	LineTo	Declare PtrSafe Function LineTo Lib "gdi32" _ (ByVal hdc As LongPtr, ByVal X As Long, ByVal Y As Long) As Long
		hDc x, y	DCのﾊﾝﾄﾞﾙ 直線終点のxy座標	ー	成功=0以外 失敗=0

図３７別窓
現在の位置を変更する「MoveToEx関数」の第１引数（hdc）には、デバイスコンテキスト（DC）のハンドルを指定します。
第２、第３引数（x, y）には、新しい位置（＝移動先）の座標をピクセル単位で指定します。
第４引数（lpPoint）には、それまでの現在位置が戻されますので、あらかじめPOINTAPI構造体の変数を準備しておき、準備した変数を指定します。それまでの位置が不要であっても、POINTAPI構造体の変数を指定しないとエラーとなってしまいます。
始点まで移動したら「LineTo関数」で線を引きます。
第１引数（hdc）には、デバイスコンテキスト（DC）のハンドルを指定します。
第２、第３引数（x, y）には、終点の位置の座標をピクセル単位で指定します。
簡単な描画例でのコードを紹介します。
なおデバイスコンテキスト（DC）のハンドルはhDCとして取得済みとし、ペン種は既定で描画しています。

0. '==========　⇩(1)　直線の描画 ============
1. Sub Line_Draw1()
2. 　Dim P_old As POINTAPI 　　　 '←元の現在位置
4. 　Me.Repaint 　 '←描画準備
6. 　Call MoveToEx(hdc, 50, 50, P_old) 　 '←現在位置の変更
8. 　Call LineTo(hdc, 150 , 150) 　 '←終点に向かって線を描画
9. End Sub

図３８別窓
０４行目「Me.Repaint」は、描画の準備をしています。
０６行目「Call MoveToEx(hdc, 50, 50, P_old)」では、現在の位置を(50, 50)の位置に移動させています。第４引数のP_oldには移動前の位置情報が入りますが、今回は特に使用していません。
０８行目「Call LineTo(hdc, 150 , 150)」は、現在位置から(150, 150)の位置に向かって直線を引いています。
図３８のコードで描画される線は、以下のようになります。

図３９別窓
線が引かれた後（０８行目が完了した後）は、現在の位置は終点（今回の場合は(150, 150)の位置）に移動済みです。ですのでLineTo関数を繰り返し実行すれば、一筆書きのように折れ線や矩形が描画できます（但しあくまで直線の集まりなので、直線間で囲まれた部分がハッチングされる事はありません）。

(Repaintメソッドの役割) 「GDI描画をフォーム起動時に実施する場合は、その前にRepaintメソッドの実行が必要」と言われています。確かにActivateイベント内で描画を実行する時にはRepaintが無いと描画されません。 一般的にRepaintメソッドは「フォームを再描画」する機能と説明されます。しかし今回はGDIでの描画前にRepaintをしているので、この説明では納得できません。 そこで、「描画処理」と「Repaint」の位置について調べてみたのが図４０です。 図４０別窓 Case1～3は、描画処理を実行する位置がInitializeイベント時、Activateイベント時、Activateイベントが完了した後　と分けています。 そして描画処理の前にRepaintメソッドをどこで実行するかが①～③の位置です。Initializeイベント内が①、Activateイベント内が②、Activateイベントが完了した後が③としました。 コードを組んで確かめた結果、 Case1（Initializeイベント内で描画処理）では、その直前（＝Initializeイベント内）でRepaintメソッドを実行しても描画されませんでした。 Case2（Activateイベント内で描画処理）では、Repaintの実行位置はInitialize内とActivate内の２か所が考えられますが、Initializeイベント内でRepaintメソッドを実行しても描画されません。一方、Activateイベント内でRepaintメソッドを実行した時には描画されます。 Case3（Activateイベント完了後に描画処理）では、Repaintメソッドが有っても無くても描画されます。 Case2では、Repaintの位置で「DoEventsメソッド」を実行しても同じ結果（Activate内で実行すると描画される）となりますが、DoEventsを挟まないDo～LoopやSleep関数では描画されない事も分かりました。 現象をまとめると、フォームが表示された状態で、制御が一旦O/Sに移った後に描画処理をすると描画されるようです。つまりRepaintメソッドは「ユーザーフォーム上の制御をO/Sに一時的に移管」する役目もしている　とも考えれらます。 なお「Waitメソッドで1秒以上待機」すると描画される現象も確認されたのですが、Waitの間はユーザーフォーム上にFocusが移ってきている訳でも無さそうなので、まだ裏に何かありそうです。 なお描画された後にRepaintを実行すると、当然ながら既に描かれた描画は消えますので「既存の描画を消去」≒「新たな描画の準備」と言う説明でも成り立ちそうです。

４－１－２．折れ線（複数の線の連続）

上記のLineTo関数を繰り返すことでも折れ線が描画できますが、１回の実行で折れ線を描画するのが下記です。またこの関数を使えば、MoveToEx→LineTo を使わず単線を描画することも可能です。
ここでは「Polyline」と「PolylineTo」の２種を紹介します。Polylineの方は描画後もペンの現在位置は変わりませんが、PolylineToの方は描画の終点にペンの現在位置が移動します。

役割	関数名	宣言
		引数	引数の内容	構造体	戻り値
折れ線を描画 （ペンの現在位置は不変）	Polyline	Declare PtrSafe Function Polyline Lib "gdi32" _ (ByVal hdc As LongPtr, lpPoint As POINTAPI, ByVal nCount As Long) As Long
		hDc lpPoint nCount	DCﾊﾝﾄﾞﾙ 空間内の点の座標(POINTAPI構造体) lpPoint配列内の点の数	Type POINTAPI 　x As Long 　y As Long End Type	成功=0以外 失敗=0
折れ線を描画 （現在位置を始点として描画開始し ペンの現在位置は終点に移動）	PolylineTo	Declare PtrSafe Function PolylineTo Lib "gdi32" _ (ByVal hdc As LongPtr, lpPoint As POINTAPI, ByVal nCount As Long) As Long
		hDc lpPoint nCount	DCﾊﾝﾄﾞﾙ 空間内の点の座標(POINTAPI構造体) lpPoint配列内の点の数	Type POINTAPI 　x As Long 　y As Long End Type	成功=0以外 失敗=0

図４１別窓
指定するパラメータは、どちらも３つです。
第１引数「hDc」には、デバイスコンテキスト（DC）のハンドルを指定します。
第２引数「lpPoint」は、各座標位置をPOINTAPI構造体に格納して指定します。
第３引数「nCount」には、lpPoint配列の要素数（＝点の数）を指定します。
簡単な描画例でのコードを紹介します。
なおデバイスコンテキスト（DC）のハンドルはhDCとして取得済みとし、ペン種は既定で描画しています。

20. '==========　⇩(2)　折れ線の描画 ============
21. Sub Line_Draw2()
22. 　Dim P(1 To 4) As POINTAPI 　 '←点の位置の配列
23. 　Dim P_old As POINTAPI 　　　 '←元の現在位置
25. 　Call MoveToEx(hdc, 50, 50, P_old) 　 '←現在位置の変更
27. 　Me.Repaint 　 '←描画準備
29. 　P(1).X = 100: P(1).Y = 150
30. 　P(2).X = 150: P(2).Y = 50
31. 　P(3).X = 200: P(3).Y = 150
32. 　P(4).X = 250: P(4).Y = 50
34. 　Call Polyline(hdc, P(1), 4)
35. '　Call PolylineTo(hdc, P(1), 4)
36. End Sub

図４２別窓
２２行目「Dim P(1 To 4) As POINTAPI」は、Polyline関数またはPolylineTo関数の第２引数に渡す「点の位置の配列」を宣言しています。
２５行目「Call MoveToEx(hdc, 50, 50, P_old)」では、ペンの現在位置を変更しています。なおPolyline関数を使う時は、このMoveToExでの位置変更は無関係となります。
２７行目「Me.Repaint」で描画の準備をしています。
２９～３２行目では、点の位置の配列にデータを入れています。配列変数Pのデータ型がPOINTAPI構造体（XとYの２要素）ですので、いわば「4 × 2」の２次元配列のような形となります。
３４行目「Call Polyline(hdc, P(1), 4)」では、Polyline関数を使用して折れ線を引いています。
第１引数にはデバイスコンテキスト（DC）のハンドルを指定します。
第２引数は点の座標であるPOINTAPI構造体（ここでは配列変数 P(1 To 4) ）を指定するのですが、「配列の1番目の要素」を指定するようです。
感覚的には「Call Polyline(hdc, P, 4)」のように、配列変数全体を指定するのが正しそうに思うのですが、それだとエラーが発生します。もちろん2番目の要素を指定する事も可能ですが、そうすると1番目の座標が無視されます。
第３引数には、配列の要素数を指定します。
図４２のコードを実行したのが図４３の左側です。なお見え消しにしてあるPolylineTo関数の３５行目「Call PolylineTo(hdc, P(1), 4)」を実行したのが右側になります。

図４３別窓
Polyline関数では現在位置は無視され、配列内の座標位置データの間のみを直線で結びます。
一方PolylineTo関数は現在位置(50, 50)を始点とし、まず座標位置データ配列の最初の要素位置に線を引き、その後で配列内の各点の位置を結んでいきます。
描画後の現在位置は、Polyline関数については移動しませんが、PolylineTo関数は配列の最後の要素の位置に移動します。
なお、各関数の引数指定に失敗した例を下に示します。

図４４別窓
図４４の左側は、点の位置座標の配列に「データが欠落」していた場合です。POINTAPI構造体のXY各要素はLong型なので、要素が空だと「ゼロ」とみなされます。ですので、その空の点は「デバイスコンテキストの描画領域の原点 (0, 0)」とみなして線で結んでしまうことになります。
図４４の右側は、第３引数の「要素の数」が実際の配列の要素数よりも多かった場合です。Polyline関数等は第３引数に指定した個数だけ点を探しに行くので「指定した配列の外の値（配列データが並んでいるメモリー域の次の場所に書き込まれている値）」を拾ってきます。この値は全く予想がつかず、実際に試してみても「実行する度に異なる線」が引かれてしまいます。
この対策としては要素数を直値で指定せず、以下のような計算式で指定すれば間違いは減るかと思われます。
　Call Polyline(hdc, P(1), UBound(P, 1) - LBound(P, 1) + 1)

４－２．円形関連の描画

楕円形や弓形、扇形を作成するAPI関数は以下になります。

役割	関数名	宣言
		引数	引数の内容	構造体	戻り値
楕円を描画	Ellipse	Declare PtrSafe Function Ellipse Lib "gdi32" _ (ByVal hdc As LongPtr, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
		hDc X1, Y1 X2, Y2	DCﾊﾝﾄﾞﾙ 楕円に外接する長方形の左上隅のxy座標 楕円に外接する長方形の右下隅のxy座標	ー	成功=0以外 失敗=0
弓形を描画	Chord	Declare PtrSafe Function Chord Lib "gdi32" _ (ByVal hdc As LongPtr, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, _ ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
		hDc X1, Y1 X2, Y2 X3, Y3 X4, Y4	DCﾊﾝﾄﾞﾙ 楕円に外接する長方形の左上隅のxy座標 楕円に外接する長方形の右下隅のxy座標 楕円の弧の始点(放射直線の端点)のxy座標 楕円の弧の終点(放射直線の端点)のxy座標	ー	成功=0以外 失敗=0
扇形を描画 A側からB側に 反時計回りに 扇を作成	Pie	Declare PtrSafe Function Pie Lib "gdi32" _ (ByVal hdc As LongPtr, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, _ ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
		hDc X1, Y1 X2, Y2 X3, Y3 X4, Y4	DCﾊﾝﾄﾞﾙ 楕円に外接する長方形の左上隅のxy座標 楕円に外接する長方形の右下隅のxy座標 最初の放射直線の端点のxy座標(A) 2番目の放射直線の端点のxy座標(B)	ー	成功=0以外 失敗=0

図４５別窓

４－２－１．楕円（Ellipse関数）

Ellipse関数の宣言文を再掲します。
Declare PtrSafe Function Ellipse Lib "gdi32" _
(ByVal hdc As LongPtr, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
楕円は図４６の左側のように「２つの焦点に長い１本の糸の輪を引っ掛け、輪の中に筆記具を入れて糸が張る状態で筆記具を動かす」事によってできる図形です。VBAでは「楕円に外接する長方形」を指定することで楕円形が作成されます。
なお２つの焦点が１つに重なったものが円ですので、円は楕円の一部ということになります。その際には、外接する長方形は「正方形」となります。

図４６別窓
Ellipseは、この楕円形を描画する関数です。第２～４引数には図４６右側のX1,Y1,X2,Y2を指定することで長方形に内接する楕円形が描画されます。
簡単な描画例でのコードを紹介します。
なおデバイスコンテキスト（DC）のハンドルはhDCとして取得済みとし、ペン種・ブラシ種は既定で描画しています。

40. '==========　⇩(3)　楕円形の描画 ============
41. Sub Ellipse_Drow1()
43. 　Me.Repaint
45. 　Call Ellipse(hdc, 50, 50, 150, 150)
46. '　Call Ellipse(hdc, 50, 50, 250, 150)
47. End Sub

図４７別窓
４５行目「Call Ellipse(hdc, 50, 50, 150, 150)」で楕円形を作成しています。
第１引数にはデバイスコンテキスト（DC）のハンドルを指定します。
第２～３引数には、外接する長方形の左上隅のXY座標位置（ピクセル単位）を指定（ここでは(50, 50) ）します。
第４～５引数には、外接する長方形の右下隅のXY座標位置を指定（ここでは(150, 150) ）します。
作成された楕円形は、図４８のようになります。図４７では正方形を指定していますので、左側のような円となりますが、見え消しの４６行目「Call Ellipse(hdc, 50, 50, 250, 150)」のように長方形を指定すれば、右側のような楕円形となります。


図４８別窓
また、楕円に外接する長方形の指定方法（X1Y1、X2Y2）ですが、説明では「左上隅がX1Y1」「右下隅がX2Y2」となっています。しかしX1Y1とX2Y2を入れ替えても、また右上隅と左下隅を指定しても、図４９のように同じ楕円形が描画されます。
つまり「長方形の四隅の、対角となる隅の座標を指定」することで長方形は描画可能ということになります。
この「入れ替え可」はこの関数のみの現象ではなく、Pie関数、Chord関数でも可能です。しかも扇形や弓形が上下・左右で逆になる等の副作用もなさそうです。
また円形関数だけではなく、矩形描画の関数でも入れ替え可能です。

図４９別窓
尚この入れ替えは、後からコードを見た人が混乱しますのでお勧めはしませんが、やむなく入れ替えなければならない時には有難い仕様かもしれません。

４－２－２．弓形（Chord関数）

Chord関数の宣言文を再掲します。
Declare PtrSafe Function Chord Lib "gdi32" _
(ByVal hdc As LongPtr, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, _
ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
弓形とは「楕円の一部を切り取り、切り取った部分を直線で結んだ図形」です。
簡単な描画例のコードを紹介します。
なおデバイスコンテキスト（DC）のハンドルはhDCとして取得済みとし、ペン種・ブラシ種は既定で描画しています。

60. '==========　⇩(4)　弓形の描画 ============
61. Sub Chord_Drow1()
63. 　Me.Repaint
65. 　Call Chord(hdc, 50, 50, 150, 150, 120, 110, 80, 180)
66. '　Call Chord(hdc, 50, 50, 150, 150, 80, 180, 120, 110)
67. '　Call Chord(hdc, 50, 50, 150, 150, 100, 100, 80, 180)
68. End Sub

図５０別窓
６５行目「Call Chord(hdc, 50, 50, 150, 150, 120, 110, 80, 180)」で弓形を作成しています。
第１引数にはデバイスコンテキスト（DC）のハンドルを指定します。
第２～３引数には、外接する長方形の左上隅のXY座標位置（ピクセル単位）を指定します。
第４～５引数には、外接する長方形の右下隅のXY座標位置を指定します。
この第２～５引数のデータで、作られた長方形に内接する楕円形の形が決定します。
第６～７引数は、楕円中心からの直線の「１番目の端点」のXY座標を指定します。
第８～９引数は、楕円中心からの直線の「２番目の端点」のXY座標を指定します。
第６引数以降が何を指しているのか、説明文からでは分かり難いので、描画した弓形で説明をします。
図５０のコードの結果が、図５１の一番左側の図になります。

図５１別窓
楕円の中心（＝四角の中心）から、第６～７引数の座標（X3, Y3）の点に向かって、楕円形の外周に交差するまで直線を引きます。なお座標（X3, Y3）の点が楕円の内側にあっても、その点を越えて楕円形の外周に交差するまで直線を引きます。この直線と楕円の外周が交差する点が「弓形の円弧の始点」となります。
また楕円の中心から、第８～９引数の座標（X4, Y4）の点に向かって、楕円形の外周に交差するまで直線を引きます。この直線と楕円の外周が交差する点が「弓形の円弧の終点」となります。
始点と終点が求まりました。ではどの方向に円弧を作るかですが、始点から終点に向かって「反時計回り」に円弧が作られ、残された部分が直線で結ばれます。
「反時計回りの円弧」ですので、見え消しの６６行目「Call Chord(hdc, 50, 50, 150, 150, 80, 180, 120, 110)」のように端点の入れ替え（X3,Y3 ⇔ X4,Y4）をすると、図５１の中央図のように「左図の残り」のような形となります。
また、見え消し６７行目「Call Chord(hdc, 50, 50, 150, 150, 100, 100, 80, 180)」のように端点が「楕円の中心」となる場合、その端点に対しては「X方向の値のみを増やす」ような処理をしているのか、中心から直線を楕円右側に平行に引く事になります。結果は図５１の右図のようになります。
また両方の端点が中心となる場合は「完全な楕円」となり、直線部分は無くなります。

４－２－３．扇形（Pie関数）

Pie関数の宣言文を再掲します。
Declare PtrSafe Function Pie Lib "gdi32" _
(ByVal hdc As LongPtr, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, _
ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
扇形とは「２本の半径と、その間にある円弧によって囲まれた図形」です。
簡単な描画例のコードを紹介します。
なおデバイスコンテキスト（DC）のハンドルはhDCとして取得済みとし、ペン種・ブラシ種は既定で描画しています。

80. '==========　⇩(5)　扇形の描画 ============
81. Sub Pie_Drow1()
83. 　Me.Repaint
85. 　Call Pie(hdc, 50, 50, 150, 150, 120, 110, 80, 180)
86. '　Call Pie(hdc, 50, 50, 150, 150, 80, 180, 120, 110)
87. '　Call Pie(hdc, 50, 50, 150, 150, 100, 100, 80, 180)
89. End Sub

図５２別窓
８５行目「Call Pie(hdc, 50, 50, 150, 150, 120, 110, 80, 180)」でPie関数を呼び出しています。
第１引数にはデバイスコンテキスト（DC）のハンドルを指定します。
第２～３引数は、楕円形に外接する長方形の左上隅のXY座標（ピクセル単位）を指定します。
第４～５引数は、楕円形に外接する長方形の右下隅のXY座標を指定します。
第６～７引数は、１番目の直線の端点のXY座標を指定します。
第８～９引数は、２番目の直線の端点のXY座標を指定します。
第６引数以降について、描画した扇形で説明をします。内容は弓形（Chord関数）とほぼ一緒です。
図５２のコードの結果が、図５３の一番左側の図になります。

図５３別窓
まず、第２～５引数の値で決定する「長方形（図５３の赤点線の四角）」の内側に接する楕円形が決まります。
次に楕円の中心（＝四角の中心）から、第６～７引数の座標（X3, Y3）の点に向かって、楕円形の外周に交差するまで直線を引きます。なお座標（X3, Y3）の点が楕円の内側にあっても、その点を越えて楕円形の外周に交差するまで直線を引きます。この直線が「扇形の１本目の半径」となります。
また楕円の中心（＝四角の中心）から、第８～９引数の座標（X4, Y4）の点に向かって、楕円形の外周に交差するまで直線を引きます。この直線が「扇形の２本目の半径」となります。
２本の半径のどちら側に円弧を作るかですが、１本目の半径から２本目の半径に向かって「反時計回り」に円弧が作られます。
見え消し８６行目「Call Pie(hdc, 50, 50, 150, 150, 80, 180, 120, 110)」のように、１本目の半径と２本目の半径が入れ替わると、図５３の中央のように「左図の残り」のような形となります。
また、見え消し８７行目「Call Pie(hdc, 50, 50, 150, 150, 100, 100, 80, 180)」のように、直線の端点（第６～９引数）のどちらかが「楕円の中心」となる場合は、図５３の右図のように「中心からの半径を楕円右側に平行に引く」事になります。
そして両方の端点とも楕円の中心となる場合は、完全な楕円となりますが、楕円の右側に半径が２つ重なる形となり「直線は見えてしまう」ので注意が必要です。

４－３．矩形関係の描画

矩形（四角形や多角形）を描画するAPI関数は以下になります。

役割	関数名	宣言
		引数	引数の内容	構造体	戻り値
長方形を描画	Rectangle	Declare PtrSafe Function Rectangle Lib "gdi32" _ (ByVal hdc As LongPtr, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
		hdc X1, Y1 X2, Y2	DCﾊﾝﾄﾞﾙ 長方形の左上隅のxy座標 長方形の右下隅のxy座標	ー	成功=0以外 失敗=0
多角形を描画	Polygon	Declare PtrSafe Function Polygon Lib "gdi32" _ (ByVal hdc As LongPtr, lpPoint As POINTAPI, ByVal nCount As Long) As Long
		hdc lpPoint nCount	DCﾊﾝﾄﾞﾙ 多角形の各頂点の座標（POINTAPI構造体） 配列内の各多角形の頂点の数	Type POINTAPI 　x As Long 　y As Long End Type	成功=0以外 失敗=0

図５４別窓

４－３－１．長方形の描画（Rectangle）

長方形の描画にはRectangle関数を使用します。そのAPI関数宣言文を再掲します。
Declare PtrSafe Function Rectangle Lib "gdi32" _
(ByVal hdc As LongPtr, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
ここでいう長方形は「各辺が水平または垂直の四角形」ですので、長方形の対角２点の座標を指定すれば一意に形が決まることになります。以下では、簡単な描画例でのコードを紹介します。
なおデバイスコンテキスト（DC）のハンドルはhDCとして取得済みとし、ペン種・ブラシ種は既定で描画しています。

100. '==========　⇩(6)　長方形の描画 ============
101. Sub Rectangle_Draw1()
103. 　Me.Repaint
105. 　Call Rectangle(hdc, 50, 50, 150, 150)
106. '　Call Rectangle(hdc, 50, 50, 250, 150)
107. End Sub

図５５別窓
１０５行目「Call Rectangle(hdc, 50, 50, 150, 150)」では、Rectangle関数を呼び出し長方形を描画しています。
第１引数にはデバイスコンテキスト（DC）のハンドルを指定します。
第２～３引数は、長方形の左上隅のXY座標（ピクセル単位）を指定します。
第４～５引数は、長方形の右下隅のXY座標を指定します。
図５５のコードの結果が、図５６の左側になります。

図５６別窓
長方形の左上隅・右下隅の座標を指定することで長方形が描画されることが分かります。図５６の左側は正方形となりましたが、見え消しの１０６行目「Call Rectangle(hdc, 50, 50, 250, 150)」を使用すれば図５６の右側のように長方形になります。
なお図４９の所でも説明したように、長方形を描画するための隅は「対角であればどこの隅の座標を指定しても、同じ長方形」が描画されます。

４－３－２．多角形の描画（Polygon）

Polygon関数のAPI宣言文を再掲します。
Declare PtrSafe Function Polygon Lib "gdi32" _
(ByVal hdc As LongPtr, lpPoint As POINTAPI, ByVal nCount As Long) As Long
多角形は、頂点の座標位置の配列をPolygon関数に指定する事で描画できます。以下では簡単な描画例でのコードを紹介します。
なおデバイスコンテキスト（DC）のハンドルはhDCとして取得済みとし、ペン種・ブラシ種は既定で描画しています。

120. '==========　⇩(7)　多角形の描画1 ============
121. Sub Polygon_Draw1()
122. 　Dim p(1 To 5) As POINTAPI
124. 　Me.Repaint
126. 　p(1).x = 50: 　p(1).y = 50
127. 　p(2).x = 50: 　p(2).y = 150
128. 　p(3).x = 250: 　p(3).y = 150
129. 　p(4).x = 250: 　p(4).y = 50
130. 　p(5).x = 150: 　p(5).y = 20
132. 　Call Polygon(hdc, p(1), 5)
134. End Sub

図５７別窓
１２２行目「Dim p(1 To 5) As POINTAPI」で、POINTAPI構造体としての配列変数を宣言します。
１２６～１３０行目では、５つの座標位置の値を配列にしています。
１３２行目「Call Polygon(hdc, p(1), 5)」では、Polygon関数で多角形を描画しています。
第１引数にはデバイスコンテキスト（DC）のハンドルを指定し、第２引数には座標位置を格納したPOINTAPI構造体の配列の「先頭要素」を指定します。
第３引数には「POINTAPI構造体の配列の要素数（＝多角形の頂点の数）」を指定します。
図５７のコードにより描画された図形が図５８の左側になります。
配列のP(1)からP(5)までを直線で結び、最後の座標から先頭の座標に対しても線で結ぶことで、閉じた多角形となります。閉じられた多角形の内側は「ブラシで塗りつぶし」されます。

図５８別窓
図５７で作成したPOINTAPI構造体の配列の要素数が５つだったので、図５８の左側は「五角形」となりました。
一方、下の図５９のコードで作った多角形が図５８の右側です。各頂点の座標は全く同じですが「配列の順番」が異なることで星形の図形を描画することも可能です。

140. '==========　⇩(8)　多角形の描画2 ============
141. Sub Polygon_Draw2()
142. 　Dim p(1 To 5) As POINTAPI
144. 　Me.Repaint
146. 　p(1).x = 50: 　p(1).y = 50
147. 　p(2).x = 250:　p(2).y = 50 　　 図５７では P(4)
148. 　p(3).x = 50: 　p(3).y = 150 　　 図５７では P(2)
149. 　p(4).x = 150:　p(4).y = 20 　　 図５７では P(5)
150. 　p(5).x = 250:　p(5).y = 150 　　 図５７では P(3)
152. 　Call Polygon(hdc, p(1), 5)
154. End Sub

図５９別窓
なおPolygon関数で描画された多角形は、内部がブラシで塗りつぶされる（既定だと白色）のですが、図５８の右側の星形図形では星形の先端領域だけがブラシで塗りつぶされ、中央部分は塗りつぶしされていない状態になります。

(多角形の塗りつぶし) 多角形を描画すると、図６０のように「塗りつぶされない部位」が出てくる可能性があります。 GDIの、この塗りつぶしルールについては「多角形の各走査行で多角形の奇数番号の辺から偶数番号の辺までの間の領域を塗りつぶす」との説明がありますが、良く分からないので適当に解釈すると「各頂点を結ぶ辺に囲まれた領域を塗りつぶす」という事のようです。つまり頂点が含まれる部分だけを塗りつぶすという事でしょうか。 しかし図６０の中央図のように、星形図形の頂点（P(4)）の座標位置を少し下げた図形では「頂点P(4)が含まれる部分でも塗り潰されない」という場合もありますし、また一番右側のように、線を行ったり来たりさせた図形では「頂点を含まない部分でも塗り潰される」という場合もあります。 図６０別窓 塗りつぶしルールについては上記以上の詳しい説明は見当たりません。しかし図６０を見る限り、 　・頂点とは、POINTAPI配列の各点では無く「全てを塗り潰した時でも、頂点となる点」 　・辺によって分割された領域は、交互に塗りつぶす（図６２の「ALTERNATEモード」にも通じる） というルールが隠れているのでは？　と推測しています。 一方、塗り潰されていないのは「塗りつぶしモード＝ALTERNATE（交互）」となっている為です。この塗りつぶしモードを変更するには、SetPolyFillMode関数を使用します。 役割 関数名 宣言 引数 引数の内容 構造体 戻り値 多角形の 塗りつぶしﾓｰﾄﾞ設定 SetPolyFillMode Declare PtrSafe Function SetPolyFillMode Lib "gdi32" _ (ByVal hdc As LongPtr, ByVal nPolyFillMode As Long) As Long hdc nPolyFillMode DCﾊﾝﾄﾞﾙ 塗りつぶしﾓｰﾄﾞ値 ー 成功=以前のﾓｰﾄﾞ値 失敗=0 図６１別窓 SetPolyFillMode関数の第１引数にはデバイスコンテキストのハンドルを指定します。そして第２引数には、下表（図６２）の値を指定します。 (定数) 値 内容 ALTERNATE 1 交互モード(既定) 多角形の内部で隣接しない部分を塗りつぶす WINDING 2 全域モード 多角形の交差する内面も塗りつぶす 図６２別窓 SetPolyFillMode関数で「WINDINGモード」に変更した後にPolygon関数を実行する事で、「ALTERNATEモード」では塗りつぶされなかった領域が図６３のように塗りつぶされるようになります。 図６３別窓 但し図６３の一番右の「頂点4の領域」だけは塗りつぶされません。 Microsoftの説明では「交差する線の方向が逆の場合は塗りつぶされない」とあるので、下図のような「わざと中庭を作るような図形（図６４の一番右）」の場合は塗りつぶされないとは思うのですが、図６３の一番右の場合はそれにも当てはまらず、理屈は分かりません。 図６４別窓 以上のように、SetPolyFillMode関数を使っても塗りつぶされない図形が存在するため、事前チェックなどが必要です。

４－４．点の描画

点は文字通り「描画できる最小単位」で、１ピクセルです。点を描画するにはSetPixel関数を使用します。

役割	関数名	宣言
		引数	引数の内容	構造体	戻り値
点の描画	SetPixel	Declare PtrSafe Function SetPixel Lib "gdi32" _ (ByVal hdc As LongPtr, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
		hdc X, Y crColor	DCﾊﾝﾄﾞﾙ xy座標 色	ー	成功=描画色のRGB値 失敗=-1

図６５別窓
SetPixel関数の第１引数には、デバイスコンテキスト（DC）のハンドルを指定します。
第２～３引数には、点を描画するxy座標の位置（ピクセル単位）を指定します。
第４引数には点の色をRGB関数等を使って指定します。
以下で簡単な描画例のコードを紹介します。なおデバイスコンテキスト（DC）のハンドルはhDCとして取得済みとしています。

160. '==========　⇩(9)　点の描画1 ============
161. Sub SetPixel_Draw1()
163. 　Me.Repaint
165. 　Call SetPixel(hdc, 50, 50, RGB(255, 0, 0))
167. End Sub

図６６別窓
１６５行目「Call SetPixel(hdc, 50, 50, RGB(255, 0, 0))」では、(X=50, Y=50) の位置の１ピクセルを赤色にしています。
この図６６のコードで点を描画したものが、図６７の一番左です。

図６７別窓
１ピクセルは非常に小さく、目を凝らしてやっと見える程度です。アプリとしてユーザーフォーム上に「点を表示したい」といった場合にはもう少し大きくする事も必要です。
そこで狙った座標（今回は (50, 50) の位置）の上下左右にドットを増やしたのが、図６７の中央図（3 x 3 = 9 ピクセル）、右図（5 x 5 =25 ピクセル）です。コードとしては、以下（図６８）のようになります。

180. '==========　⇩(10)　点の描画2 ============
181. Sub SetPixel_Draw2()
182. 　Dim i As Integer
183. 　Dim j As Integer
184. 　Dim Pwide As Integer 　 '←点の大きさの係数
186. 　Pwide = 1 　　 '← 1=3×3ピクセル 、2=5×5ピクセル
188. 　Me.Repaint
190. 　For i = -1 * Pwide To Pwide
191. 　　For j = -1 * Pwide To Pwide
192. 　　　Call SetPixel(hdc, 50 + i, 50 + j, RGB(255, 0, 0))
193. 　　Next j
194. 　Next i
195. End Sub

図６８別窓
１８６行目「Pwide = 1」では、狙った点の周りに「何周の点を盛るか」を指定しています。ここでは「1周」です。
１９０～１９４行目では、For～Nextを二重にして点の周りに点を追加しています。これなら「点」と認識できそうです。
なお１８６行目を「Pwide = 2」にしたのが図６７の右図となります。
またSetPixel関数は点を描画するだけで無く、工夫すれば点だけで下図のようなものも描画できます。左側はSINカーブで、中央と右側は円です。波形の数式さえ分かれば描画できることになります。

図６９別窓
SINカーブを描画するコードは以下になります。１回転＝2π（3.14 × 2）ですので、5回転分（314/10）を描画している事になりますが、最後の部分はユーザーフォームの外になってしまっています。また波形の変化が少し大きいので、点線のような描画となってしまいます。

200. '==========　⇩(11)　点の描画3（SINカーブ） ============
201. Sub SetPixel_Draw3()
202. 　Dim i As Integer
204. 　Me.Repaint
206. 　For i = 0 To 314
207. 　　Call SetPixel(hdc, i, 50 * Sin(i / 10) + 100, RGB(0, 0, 0))
208. 　Next i
210. End Sub

図７０別窓
２０７行目「Call SetPixel(hdc, i, 50 * Sin(i / 10) + 100, RGB(0, 0, 0))」がSINカーブの式となりますが、フォーム内に収めるために「50 *」と「+ 100」とでSINカーブの形を整えています。
円形を描画（図６９の中央）するコードが以下です。半径は50ピクセルとし、2πラジアン（＝360度）を100等分して描画をしています。

220. '==========　⇩(12)　点の描画4（円形） ============
221. Sub SetPixel_Draw4()
222. 　Dim r As Integer
223. 　Dim s As Integer
225. 　r = 50
226. 　Me.Repaint
228. 　For s = 0 To 2 * 3.14 * 100
229. 　　Call SetPixel(hdc, r * Cos(s / 100) + 100, r * Sin(s / 100) + 100, RGB(0, 0, 0))
230. 　Next s
232. '　For s = 0 To 2 * 3.14 * 10
233. '　　Call SetPixel(hdc, R * Cos(s / 10) + 100, R * Sin(s / 10) + 100, RGB(0, 0, 0))
234. '　Next s
236. End Sub

図７１別窓
２２５行目「r = 50」は、円の半径を50ピクセルに指定しています。
２２８行目「For s = 0 To 2 * 3.14 * 100」は、２πラジアン（＝１周360度）を100倍して描画しています。
２２９行目「Call SetPixel(hdc, r * Cos(s / 100) + 100, r * Sin(s / 100) + 100, RGB(0, 0, 0))」の中の(s / 100)は、カウンタ変数sを100倍しているので、XY位置としては1/100にしています。
試しに、100倍を10倍に減らす（見え消しにしている２３２～２３４行目のFor～Next文）と、描画される円は図６９の一番右側のように「粗い点線の円」となります。
絵でも図でも結局はピクセルの集まりですから「SetPixel関数を使えば何でも描画できる」とも言えます。しかし後からの修正の手間や可読性を考えて、使えるGDI関数が存在するのであれば、使うべきだとは思います。

４－５．文字の描画

文字を描画する関数としては「TextOut関数」「DrawText関数」等があります。また、その文字の「文字色の設定」「背景の設定」の関数等があります。

役割	関数名	宣言
		引数	引数の内容	構造体	戻り値
文字を描画	TextOut	Declare PtrSafe Function TextOut Lib "gdi32" Alias "TextOutA" _ (ByVal hdc As LongPtr, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
		hdc x, y lpString nCount	DCﾊﾝﾄﾞﾙ 基準点のxy座標 描画する文字列 文字数	ー	成功=0以外 失敗=0
文字を 四角内に描画	DrawText	Declare PtrSafe Function DrawText Lib "user32" Alias "DrawTextA" _ (ByVal hdc As LongPtr, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
		hdc lpStr nCount lpRect wFormat	DCﾊﾝﾄﾞﾙ 描画する文字列 文字数 長方形領域座標（RECT構造体） ﾃｷｽﾄ整形方法	Type RECT 　Left As Long 　Top As Long 　Right As Long 　Bottom As Long End Type	成功=描画ﾃｷｽﾄの高さ 等 　(wFormat値により異なる) 失敗=0
文字の色	SetTextColor	Declare PtrSafe Function SetTextColor Lib "gdi32" _ (ByVal hdc As LongPtr, ByVal crColor As Long) As Long
		hdc crColor	DCﾊﾝﾄﾞﾙ 文字色	ー	成功=旧文字色 失敗=CLR_INVALID値
文字の 背景色設定	SetBkColor	Declare PtrSafe Function SetBkColor Lib "gdi32" _ (ByVal hdc As LongPtr, ByVal crColor As Long) As Long
		hdc crColor	DCﾊﾝﾄﾞﾙ 背景色	ー	成功=旧背景色 失敗=CLR_INVALID値
文字の 背景ﾓｰﾄﾞ設定 (透明/非透明)	SetBkMode	Declare PtrSafe Function SetBkMode Lib "gdi32" _ (ByVal hdc As LongPtr, ByVal nBkMode As Long) As Long
		hdc nBkMode	DCﾊﾝﾄﾞﾙ 背景ﾓｰﾄﾞ	ー	成功=旧背景モード 失敗=0

図７２別窓

４－５－１．文字を描画（TextOut関数）

TextOut関数は単純に文字を描画するものです。API宣言文を再掲します。
Declare PtrSafe Function TextOut Lib "gdi32" Alias "TextOutA" _
(ByVal hdc As LongPtr, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
TextOut関数は、第１引数にデバイスコンテキスト（DC）のハンドルを指定します。
第２～３引数には、描画する文字の左上角のxy座標位置（ピクセル単位）を指定します。
第４引数には、描画する文字列を指定します。
第５引数には、描画する文字数を指定します。この文字数は「半角＝1文字」「全角＝2文字」という数え方になります。
以下で簡単な描画例のコードを紹介します。なおデバイスコンテキスト（DC）のハンドルはhDCとして取得済みとし、文字フォントは既定としています。

240. '==========　⇩(13)　文字の描画1（TextOut関数） ============
241. Sub TextOut_Draw1()
242. 　Me.Repaint
244. 　Call TextOut(hdc, 50, 50, "Win32APIへようこそ", 18)
246. End Sub

図７３別窓
２４４行目「Call TextOut(hdc, 50, 50, "Win32APIへようこそ", 18)」でTextOut関数を呼び出し、文字を描画しています。
第１引数はユーザーフォームのデバイスコンテキスト（DC）ハンドルを指定しています。
第２～３引数では、座標(50, 50)の位置を指定します。描画される文字の左上角がこの位置になります。
第４引数「"Win32APIへようこそ"」が描画する文字列になります。
第５引数には、第４引数に指定した文字列の文字数を「半角=1文字、全角=2文字」として指定します。今回の場合は「半角8文字＋全角5文字」なので「18」となります。
図７３のコードで描画される文字は図７４の左側です。

図７４別窓
この第５引数の描画文字数を間違えると、表示もおかしくなります。
図７４の中央図は、指定文字数が少なかった時です。例えば第５引数=13とすると「"う" の途中で13文字」に達してしまいますので、「"う" の字が記号」に化けてしまいます。（なお、例えば文字数を12と指定した時は「Win32APIへよ」で丁度切れるので、変な記号は出ません。）
一方図７４の右側は、指定文字数が多かった時の例です。メモリー上に収まっている文字列の「次のメモリー位置にある値」を文字として表示してしまうために記号となってしまいます。
文字数を正しく指定するには数式を使うのが有効です。
まずVBAにはLen関数があります。しかし、この関数は単純に「半角でも全角でも、1文字は1」と計算するので、今回描画する「"Win32APIへようこそ"」では「13文字」となります。
一方LenB関数は文字列のバイト数を求めるものですが、VBA内ではUnicodeで文字を扱っているため「半角も全角も全て２バイト」ですので、単純にLen関数の倍の「26」という値となってしまいます。
そこで「半角=1文字、全角=2文字」と数えるコードを図７５に示します。

260. '==========　⇩(14)　文字の描画2（文字数の自動カウント付き） ============
261. Sub TextOut_Draw2()
262. 　Dim str As String 　 '←表示する文字列
263. 　Dim n As Integer 　 '←文字数
265. 　str = "Win32APIへようこそ"
266. 　n = LenB(StrConv(str, vbFromUnicode))
267. '　n = Evaluate("LenB(""" & str & """)")
269. 　Me.Repaint
271. 　Call TextOut(hdc, 50, 50, str, n)
273. End Sub

図７５別窓
２６５行目「str = "Win32APIへようこそ"」で、描画文字を変数strに代入します。
２６６行目「n = LenB(StrConv(str, vbFromUnicode))」では、「半角=1文字、全角=2文字」で文字数を数えています。
右辺の内、StrConv関数は第１引数（今回は変数str）の文字列を変換するもので、変換する種類を第２引数に指定します。第２引数は今回「vbFromUnicode」で、これは「Unicodeからシステム既定コード（≒Shift-JIS）」への変換を意味します。
文字種を変換した後にLenB関数で文字数をカウントしています。
ちなみにセル上でワークシート関数を使い「=LenB("Win32APIへようこそ")」とすると、ちゃんと「半角=1文字、全角=2文字」として計算をしてくれます。ですので、ワークシート上の数式をVBA上で再現するEvaluateメソッドを使用し、見え消しの２６７行目「n = Evaluate("LenB(""" & str & """)")」としても良いです。
なおTextOut関数での文字の描画では、指定文字列に改行マーク（vbCrLfなど）を入れても、改行はしてくれません。改行が必要な場合はフォームの幅サイズを考えながら１行分の文字を描画し、フォント高さを考慮して描画位置を下に移動してから次の行を描画　のような作業が必要になります。なお次に説明するDrawText関数では、改行やTABも可能です。

４－５－２．文字を描画（DrawText関数）

DrawText関数では、TextOutよりも複雑な文字描画が可能です。API宣言文を再掲します。
Declare PtrSafe Function DrawText Lib "user32" Alias "DrawTextA" _
(ByVal hdc As LongPtr, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
DrawText関数は、第５引数「wFormat（テキスト整形方法）」の指定の仕方で様々な描画が可能な関数です。例えば複数行の文字を一度に描画することも可能ですし、描画に必要充分な幅・高さを取得することも出来ます。
なおDrawText関数だけは、他の関数と異なりファイル名が「user32」です。なので本当はGDIでは無いのかもしれませんが、同じ仲間という事にして説明します。
DrawText関数には、５つの引数を指定します。
第１引数「hdc」にデバイスコンテキスト（DC）のハンドルを指定します。
第２引数「lpStr」には、描画する文字列を指定します。
第３引数「nCount」には、描画する文字数を指定します。この文字数はTextOut関数と同様「半角＝1文字」「全角＝2文字」という数え方になります。
第４引数「lpRect」には、文字を描画する範囲をRECT構造体で指定します。RECT構造体は、図７６のように描画領域の左上角である「Left,Top」、および右下角である「Right,Bottom」の位置をピクセル単位で指定します。

図７６別窓
第５引数「wFormat」にはテキスト整形方法を以下（図７７）より指定します。項目値を和算する事で、複数指定も可能です。

(定数)	値	内容
DT_TOP, DT_LEFT	0	テキストを上揃え＋左揃え
DT_CENTER	1	テキストを水平方向に中央揃え
DT_RIGHT	2	テキストを右揃え
DT_VCENTER	4	テキストを垂直方向に中央揃え 注：DT_SINGLELINE(値=32)と同時指定要
DT_BOTTOM	8	テキストを下揃え 注：DT_SINGLELINE(値=32)と同時指定要
DT_WORDBREAK	16 (&H10)	スペースで区切られた単語は、描画領域の端をオーバーすると改行される。｢vbCrLf｣でも改行される。
DT_SINGLELINE	32 (&H20)	スペースでも｢vbCrLf｣でも改行せず、1行で描画される。
DT_EXPANDTABS	64 (&H40)	「vbTab」によりタブを挿入。タブの既定文字数は8文字。 注：DT_WORD_ELLIPSIS、DT_PATH_ELLIPSIS、DT_END_ELLIPSISとの同時指定不可
DT_TABSTOP	128 (&H80)	9～16ビット目にタブの文字数を指定。既定（0を指定）は8文字。 注：DT_EXPANDTABSを同時指定しないとタブとして表示されない。またDT_CALCRECT､DT_EXTERNALLEADING､DT_INTERNAL､DT_NOCLIP､DT_NOPREFIXとの同時指定不可。
DT_NOCLIP	256 (&H100)	クリッピングなし(指定枠を無視)で描画（≒TextOut関数）
DT_EXTERNALLEADING	512 (&H200)	行間にフォントの外部レディングを含める
DT_CALCRECT	1024 (&H400)	描画はせず、渡した文字の描画に必要充分な描画領域をRECT構造体に戻す。 領域の起点（左上角）は、指定した左上角（RECTのLeft値×Top値）が使われる。（空のRECTを渡すと、デバイスコンテキストの原点が起点となる）
DT_NOPREFIX	2048 (&H800)	プレフィックス文字（&印）での処理を無効化し、１つの文字として認識し出力する。
DT_INTERNAL	4096 (&H1000)	システムフォント(既定)時のFont高さを戻す。 （これ以外は､指定フォントでの高さを戻す）
DT_EDITCONTROL	8192 (&H2000)	部分的に表示される最後の行を表示しない
DT_PATH_ELLIPSIS	16384 (&H4000)	フォルダー名の様に「¥印」で区切られた文字列が対象。 入りきらないフォルダー名が省略印になり、末尾のファイル名が完全に出力される。 （「DT_MODIFYSTRINGの同時指定要」だが、現時点では指定しなくても省略記号となる）
DT_END_ELLIPSIS	32768 (&H8000)	ファイル名のような「¥印」で区切られた文字列も、半角スペースで区切られた単語も対象。 文字列末尾が領域右側に収まらない場合、末尾が省略記号に置き換わる。 末尾でない単語が領域右側を超える場合は、省略記号無く切り捨てられる （「DT_MODIFYSTRINGの同時指定要」だが、現時点では指定しなくても省略記号となる）
DT_MODIFYSTRING	65536 (&H10000)	指定文字列を加工条件に従って変更する。 (DT_END_ELLIPSISまたはDT_PATH_ELLIPSISと同時指定される以外は無効)
DT_RTLREADING	131072 (&H20000)	フォントがヘブライ語またはアラビア語の場合、右から左への読み取り順序にする (日本語では特に変化なし)
DT_WORD_ELLIPSIS	262144 (&H40000)	描画領域に収まらない単語を切り捨て、省略記号を追加。 (DT_END_ELLIPSISと同機能？)
DT_NOFULLWIDTHCHARBREAK	524288 (&H80000)	DBCS(≒全角文字)が描画領域の右端に達した時は、単語間の半角スペースで改行を行う。 DT_WORDBREAKの同時指定要
DT_HIDEPREFIX	1048576 (&H100000)	プレフィックス文字「&（アンパサンド）」の後に続く文字には下線は付かない。
DT_PREFIXONLY	2097152 (&H200000)	プレフィックス文字「&（アンパサンド）」の後に続く文字の位置に下線のみを描画する。

図７７別窓
定数「DT_TOP, DT_LEFT（どちらも値=0）」は、第２引数で指定したテキストを第４引数で指定した描画領域に上揃え＋左揃えで描画します。
定数「DT_CENTER（値=1）」は、テキストを水平方向の中央揃えにします。
定数「DT_RIGHT（値=2）」は、テキストを右揃えにします。
それぞれの値でユーザーフォーム上に描画したのが図７８になります。赤い点線の四角が、第４引数で指定した描画領域（実際には描画領域の枠は表示されません）を示します。
なお、文字の背景は透明化せずに白色のままとしています（詳細は「背景色」「背景モード」を参照下さい）。

図７８別窓
定数「DT_VCENTER（値=4）」は、テキストを垂直方向の中央揃えにします。
定数「DT_BOTTOM（値=8）」は、テキストを下揃えにします。実際に描画したのが図７９です。
なお、この定数は単独指定では機能せず（図７９の①③）、定数「DT_SINGLELINE（値=32）」も同時指定（図７９の②④）することで、指定の位置に描画されます。

図７９別窓
定数「DT_WORDBREAK（値=16）」を指定すると、単語間が半角スペースで区切られている場合は、描画範囲内で改行します。但し単語が描画範囲幅よりも長い場合は文字が切られてしまいます（図８０の②の3行目）。
また、定数「DT_SINGLELINE（値=32）」を指定すると、図８０の③のように「改行せず、１行で描画」します。

図８０別窓
ちなみに図８０の②では、「HやPの後ろに半角スペースが残っている」ようにも見えます。しかし、領域ギリギリになるように文字を調整してみると「最後の文字の後ろには半角スペースが残らず」かつ「改行した次の行の先頭にも半角スペースは無い」状態になるので、実質は「スペースは改行に変化」すると考えて良さそうです。
また「全角スペース」で区切った時は、単語と全角スペースの間（＝全角スペースの両サイド）で改行されます。しかし、これはスペースに限らず「全角の文字が入る事による現象（＝全角は、どこでも分割されてしまう）」なので、改行後にちょうど全角スペースが来た時には「次行の行頭に全角スペースが残り、左端がズレて見える」ことになります。
一方「vbCrLf」を組み込んだ文字列を指定した場合（図８１）には、「DT_TOP+DT_LEFT（値=0）」および「DT_WORDBREAK（値=16）」を指定すると「vbCrLf」の所で改行してくれます。しかし「DT_SINGLELINE（値=32）」では、vbCrLfが記号に置換されるだけで改行自体はしてくれません。

図８１別窓
テキストにタブ記号（VBAでは「vbTab」）を含めた場合、「DT_TOP+DT_LEFT（値=0）」では図８２の左側①のように、「←印」に置き換えられるだけですが、定数「DT_EXPANDTABS（値=64）」を指定すると図８２②のように、タブとして機能してくれます。なお、この時のタブの文字数は既定の8文字です。 但しタブは、改行の役割は果たしてくれないので注意が必要です。

図８２別窓
DT_EXPANDTABS（値=64）の注意事項として「DT_WORD_ELLIPSIS、DT_PATH_ELLIPSIS、DT_END_ELLIPSISとの同時指定不可」とありますが、何も表示されない訳でも無く、同時指定した機能も一応役割を果たしているようには見えます（但しDT_PATH_ELLIPSISは機能していない）。しかし正しく表示されない条件が存在するのでしょうから、同時指定しない方が良さそうです。
定数「DT_TABSTOP（値=128）」は、タブの文字サイズを指定するものです。タブの既定は「8文字分」です。
なおこの定数値を指定しただけでは「vbTabは←印に変わる（図８３の①）」だけなので、同時に「DT_EXPANDTABS（値=64）」を指定する必要があります。様々な設定値を指定してみたのが、図８３になります。

図８３別窓
まず「DT_EXPANDTABS（値=64）+DT_TABSTOP（値=128）」では、既定のタブ文字数（8文字）がタブとして表示（図８３の②）されます。
次にタブサイズを設定する位置ですが、Microsoftでは「15ビットから8ビット（下位ワードの上位バイト）に設定」と説明しています。しかし8ビット目は、「定数DT_TABSTOPのフラグを立てるビット目」なので、ビットが重なってしまう事になります。そこで９ビット目より上に１つずつフラグを立ててみました（図８３の③～⑥）。
すると確かにタブ文字数は増えていく傾向にあり、12ビット目にフラグを立てる（値=2048 図８３の⑥）とフラグを立てない②（既定のフラグ）と同じサイズ？になることが分かりました。
つまり「タブサイズは8～16ビット目で設定」するという事では？　と思われます。
なおビットにフラグを立てると「2の〇〇乗」という値となりますが、その〇〇をビット位置と数える手法で「15ビットから8ビット」と言っているのだとすれば、それはそれで合っているとも言えます。
色々な設定を試してみて、図８３の⑤の11ビット目にフラグを立てる設定では「一つ下の10ビット目のタブ文字数と変わらない」結果となっています。今回の流れであれば4文字分のはずですが、これはバグなのかもしれません。また13ビットより上は、用途が少ないと考え試していません。
定数「DT_TABSTOP」には「DT_CALCRECT､DT_EXTERNALLEADING､DT_INTERNAL､DT_NOCLIP､DT_NOPREFIXとの同時指定不可」との説明があります。確かに「DT_CALCRECT､DT_EXTERNALLEADING､DT_INTERNAL､DT_NOCLIP」を同時指定するとタブの表示が一部おかしくなります。しかし「DT_NOPREFIX」の同時指定では、&印の後ろの文字には下線が付きますし、&&は&と表示されるので一応正しく機能しているようには見えます。
定数「DT_NOCLIP（値=256）」は、第４引数で指定した描画領域を無視して文字を描画するものです。但し図８４のように、文字の書き出しの始点までは無視しないようです。

図８４別窓
なおDT_NOCLIPを指定すると「TextOut関数」とほぼ同じ機能になるのですが、「処理速度はDT_NOCLIPを使用した方が、TextOut関数使用時より速い」と説明しています。しかし今回試してみたら「TextOutの方が2～3倍速い」ようです。もしかしたら条件により逆転するのかもしれませんが、速さを求めてこのDT_NOCLIP指定をするのは止めた方が良いと思われます。
定数「DT_EXTERNALLEADING（値=512）」は、図８５のように行間にフォントの外部レディングを含める設定です。
なお外部レディングとは「ある行のフォント領域上端～直前の行のフォント領域下端の間の幅」という定義のようで、見かけ的には行間隔が広がったようになります。

図８５別窓
定数「DT_CALCRECT（値=1024）」は、指定した文字の描画に「必要充分な描画領域」を第４引数（RECT構造体）に戻す機能です。文字の描画はしません。
なお戻してくる描画領域は、実行時に指定した描画領域の左上角（RECT.Left、RECT.Top）を基準としています。
ですので、一旦描画したい文字列をDT_CALCRECTでDrawText関数を実行（この時の指定RECT構造体はLeftとTopだけを気にすれば良い）し、実行により必要充分な領域がRECT構造体に入るので、そのRECT構造体を使って通常のDrawText関数を実行すれば、全ての文字がちゃんと描画される（図８６の②）事になります（但し、ユーザーフォームからはみ出さない限り）。

図８６別窓
なおDrawText関数の戻り値には通常「テキストの高さ」が戻るのですが、この時の戻り値と戻される「RECT構造体の高さ値」は同一になります。
定数「DT_NOPREFIX（値=2048）」は、プレフィックス文字（&印）での処理を無効にし、文字「&」として描画します。
まずプレフィックス文字についてですが、DrawTextでは「&印」の後ろの文字に下線が付きます。もし複数個所に付けた場合には「各行の最後の文字のみに下線」が付くことになっているようです。また「&&」とプレフィックス文字を繰り返すと「文字としての&」が出力されます。
なお、プレフィックス文字が&のみなのか、他にも存在するのかは分かりませんでした。
このプレフィックス文字の機能を無くすのが定数DT_NOPREFIXで、この指定により図８７の右側②のような出力になります。

図８７別窓
DrawText関数は、描画した文字の高さ（複数行の表示となった時は、全体の高さ）を戻します。ですので１行表示の場合は「指定したフォントの高さ＝DrawTextの戻り値」となります。
定数「DT_INTERNAL（値=4096）」は、指定フォントでは無く「システムフォント（＝既定フォント）」の高さを基準にして戻り値を戻してきます。
図８８の①は既定フォントでの描画、②③は24ピクセルの高さのフォントでの描画ですが、右側③のように「DT_INTERNAL（値=4096）」を指定することで①と同じ高さを取得することが出来ます。

図８８別窓
なおシステムフォントで描画するには、以下の方法があると思います。
　・SelectObjectでフォントを指定せずに文字描画をする
　・GetStockObjectでSYSTEM_FONTのハンドルを取得し、SelectObjectで描画道具を選択
定数「DT_EDITCONTROL（値=8192）」は、部分的に表示されている行そのものを表示しない機能です。
描画領域の高さ方向が低い場合、通常は図８９の左側①のように「一番下の行は、文字が部分的にしか表示されない」事になります。この「DT_EDITCONTROL（値=8192）」を指定（右側②）すると、部分的な最後の行は非表示になります。

図８９別窓
描画領域の横幅に文字が収まらない場合、定数「DT_PATH_ELLIPSIS（値=16384）」を指定する事で、途中の単語を省略印「...」にできます。また定数「DT_END_ELLIPSIS（値=32768）」を指定すると、末尾の単語が省略印になります。
なお、文字列を変更するには「DT_MODIFYSTRING（値=65536）」の同時指定が必要との事です。
試した結果が図９０です。

図９０別窓
まず「DT_PATH_ELLIPSIS（値=16384）」ですが、対象としている文字列にクセがあり、「¥印」が入るような例えば「"C:¥abc¥def¥efg.jpg"」みたいな文字列に限られるようです。そして、入りきらない「途中の単語＝フォルダー名」が省略されます。どうもこの関数を作った人は、定数名の「PATH」からも分かるように「省略するのはフォルダー名」「省略しないのはファイル名」としたかった様です。 ちなみに「半角スペースで区切った文字列」では、途中の単語を省略印にはしてくれません。
結果は、図９０の一番左側①のように「フォルダー名が省略（...印）」されます。
次に「DT_END_ELLIPSIS（値=32768）」が対象としている文字列は、半角スペースで区切った文字列でも、PATH名のように¥印で区切った文字列でも有効です。図９０の②③のように「省略印（...）が行末に入るように、その前の文字を調整」して、その後ろに「省略印（...）」が続く事になります。
ちなみに、どちらも「DT_MODIFYSTRING（値=65536）」があっても無くても省略印となりますが、Microsoftが同時設定しろと言っているので、同時設定しておいた方が安心です。
定数「DT_RTLREADING（値=131072）」は、右から左に読み書きするヘブライ語、アラビア語対応のものとのことです。日本語の環境で使用しても特に変化は無さそうです。
定数「DT_WORD_ELLIPSIS（値=262144）」は、「DT_END_ELLIPSIS（値=32768）」と同じ機能のようです。値を指定すると、図９１のように「末尾が省略印」になります。

図９１別窓
ちなみに、この「DT_WORD_ELLIPSIS」には「DT_MODIFYSTRING（値=65536）」の同時指定は不要のようですが、同時指定しても結果は変わりませんでした。
定数「DT_NOFULLWIDTHCHARBREAK（値=524288）」は、DBCS(≒全角文字)が描画領域の右端に達した時は、単語間の半角スペースで改行を行うものです。なお改行で描画するには「DT_WORDBREAK（値=16）」の同時指定が必要です。
結果は図９２のようになります。

図９２別窓
日本語のような全角文字の中に「半角スペース」を単語間に入れておくと、図９２の中央②のように、半角スペースで全角の単語が改行されます。日本語で、どうしても単語を分割したくない時には便利かもしれません。
ちなみに右側③のように「全角スペースでは改行されない」ので注意が必要です。
定数「DT_HIDEPREFIX（値=1048576）」は、プレフィックス文字（&印）の後ろに続く文字に対し、下線を付けないという処理をします。
また定数「DT_PREFIXONLY（値=2097152）」は、プレフィックス文字（&印）の後ろに続く文字の位置に下線のみを描画し、その他の文字も含めて文字は描画しない処理になります。結果は図９３のようになります。

図９３別窓

４－５－３．文字の色（SetTextColor関数）

SetTextColor関数は、描画する文字の色を指定するものです。API関数宣言文を再掲します。
Declare PtrSafe Function SetTextColor Lib "gdi32" (ByVal hdc As LongPtr, ByVal crColor As Long) As Long
第１引数にはデバイスコンテキスト（DC）のハンドルを指定し、第２引数には文字色をRGB関数などで指定します。
以下は図７５を改造した文字色変更のコードで、文字色を「既定色」→「赤色」→「元に戻す」と変更しています。
なおデバイスコンテキスト（DC）のハンドルはhDCとして取得済みとします。

280. '==========　⇩(15)　文字色を指定 ============
281. Sub TextOut_Draw3()
282. 　Dim str As String 　　　　 '←表示する文字列
283. 　Dim n As Integer 　　　　 '←文字数
284. 　Dim Old_Color As Long 　　 '←元の文字色
286. 　str = "Win32APIへようこそ"
287. 　n = LenB(StrConv(str, vbFromUnicode))
289. 　Me.Repaint
291. 　Call TextOut(hdc, 50, 0, str, n) 　　 '←既定の文字色で描画（図９５の①）
293. 　　Old_Color = SetTextColor(hdc, RGB(255, 0, 0)) 　　 '←文字色を赤色に変更
295. 　Call TextOut(hdc, 50, 50, str, n) 　　 '←赤色の文字色で描画（図９５の②）
297. 　　Call SetTextColor(hdc, Old_Color) 　　 '←文字色を元に戻す
299. 　Call TextOut(hdc, 50, 100, str, n) 　　 '←元の文字色で描画（図９５の③）
301. End Sub

図９４別窓
まず２９１行目「Call TextOut(hdc, 50, 0, str, n)」より前には文字色の設定をしていないので、既定の色での文字描画を行っています（結果は、図９５の①）。
２９３行目「Old_Color = SetTextColor(hdc, RGB(255, 0, 0))」では、文字色を「RGB(255, 0, 0)」の赤色に変更しています。 SetTextColor関数の戻り値は「元の文字色」ですので、既定の文字色が変数Old_Colorに代入されます。
２９５行目の内容は２９１行目とほぼ同じ（描画位置が異なる）ですが、２９３行目で文字色を赤色に変更した後なので、赤色で文字描画を行います（図９５の②）。
２９７行目「Call SetTextColor(hdc, Old_Color)」では再びSetTextColorを呼び出し、文字色を変更しています。ここでは変数Old_Color（２９３行目で受け取った、元の文字色）を指定していますので、文字色は既定色に戻ります。
２９９行目の内容は２９５行目とほぼ同じ（描画位置が異なる）ですが、２９７行目で文字色を元に戻しているため、既定の色で描画を行います（図９５の③）。
描画されるユーザーフォームは、以下のようになります。

図９５別窓

(CLR_INVALID値) APIのSetTextColor関数が失敗すると「CLR_INVALIDが戻る」とMicrosoftは説明していますが、このCLR_INVALIDの値がいくつなのかは、よく分かりません。 他サイトを調べてみると「65535」という値が出てきますが、この値は「RGB(255, 255, 0)」で得られる値（＝黄色）です。RGB関数の範囲内の値が戻り、それがエラー値というのは変です。その他には「0xFFFFFFFFF」や「0xFFFFFFFF」という値も見掛けます。 上の宣言文でも分かるように「戻り値はLong型なので4バイト」です。ですので先ほどの「Fが9個並ぶ値」はLong型から外れてしまうので、これも変です。 試しにSetTextColor関数を実行する際に、第１引数に「取得を失敗したハンドル値（=0）」を指定してみると、戻り値は「-1」となります。先ほどの「Fが8個」の値は「4バイトの全てに1のフラグが立つ」状態で、Long型はプラスマイナスありますので「0xFFFFFFF = -1」となるはずです。 ですので、SetTextColor関数が失敗した時には「-1（CLR_INVALID）が戻る」と考えて良さそうです。

４－５－４．文字の背景色設定（SetBkColor関数）

SetBkColor関数は、文字の背景色を設定するものです。API宣言文を再掲します。
Declare PtrSafe Function SetBkColor Lib "gdi32" (ByVal hdc As LongPtr, ByVal crColor As Long) As Long
第１引数にはデバイスコンテキスト（DC）のハンドルを指定し、第２引数には文字の背景色をRGB関数などで指定します。
以下は図７５を改造した背景色変更のコードで、背景色を「既定色」→「赤色」→「元の色」と変更しています。
なおデバイスコンテキスト（DC）のハンドルはhDCとして取得済みとします。

310. '==========　⇩(16)　文字の背景色の指定 ============
311. Sub TextOut_Draw4()
312. 　Dim str As String 　　　　 '←表示する文字列
313. 　Dim n As Integer 　　　　 '←文字数
314. 　Dim Old_BkColor As Long 　　 '←元の背景色
316. 　str = "Win32APIへようこそ"
317. 　n = LenB(StrConv(str, vbFromUnicode))
319. 　Me.Repaint
321. 　Call TextOut(hdc, 50, 0, str, n) 　　 '←既定の背景色で描画（図９７の①）
323. 　　Old_BkColor = SetBkColor(hdc, RGB(255, 0, 0)) 　　 '←背景色を赤色に変更
325. 　Call TextOut(hdc, 50, 50, str, n) 　　 '←赤色の背景色で描画（図９７の②）
327. 　　Call SetBkColor(hdc, Old_BkColor) 　　 '←背景色を元に戻す
329. 　Call TextOut(hdc, 50, 100, str, n) 　　 '←元の背景色で描画（図９７の③）
331. End Sub

図９６別窓
まず３２１行目「Call TextOut(hdc, 50, 0, str, n)」より前には背景色の設定をしていないので、既定の背景色での文字描画を行っています（図９７の①）。
３２３行目「Old_BkColor = SetBkColor(hdc, RGB(255, 0, 0))」では、背景色を「RGB(255, 0, 0)」の赤色に変更しています。 SetBkColor関数の戻り値は「元の背景色」ですので、既定の背景色が変数Old_BkColorに代入されます。
３２５行目の内容は３２１行目とほぼ同じ（描画位置が異なる）ですが、３２３行目で背景色を赤色に変更した後なので、赤色の背景で文字描画を行います（図９７の②）。
３２７行目「Call SetBkColor(hdc, Old_BkColor)」では再びSetBkColorを呼び出します。ここでは変数Old_BkColor（３２３行目で受け取った、元の背景色）を指定していますので、背景色は既定色に戻ります。
３２９行目の内容は３２５行目とほぼ同じ（描画位置が異なる）ですが、３２７行目で背景色を元に戻しているため、既定の背景色で描画を行います（図９７の③）。
描画されるユーザーフォームは、以下のようになります。

図９７別窓

(既定の背景色) 既定の背景色は図９７でも分かるように、ここでは「白色」です。試してみると確かにSetBkColor関数で戻される既定背景色の値はRGB(255, 255, 255)でした。 但し、Microsoftでの既定背景色の説明として「コントロールパネルの背景色の設定 (通常は白)」と説明しているように、PC毎に設定変更が可能なようです。 背景色の設定であれば、Windows11の場合「個人用設定」→「背景」→「背景をカスタマイズ」で単色を指定 →「背景色の選択」だと思うのですが、残念ながら色を変更してもGDIの文字の背景色は白色から変化ありませんでした。もちろん再起動をしても同じです。またレジストリ内も探したのですが、それらしい項目は見つかりません。 どこかで変更できる可能性があるならば「背景色の既定は白色」と言い切る事ができませんので、もし白の背景色にしたい場合は「SetBkColor(hdc, RGB(255, 255, 255))」とする必要があると言う事になります。

４－５－５．文字の背景モード設定（SetBkMode関数）

SetBkMode関数は、背景のモードを透明にするか否かの設定です。API宣言文を再掲します。
Declare PtrSafe Function SetBkMode Lib "gdi32" (ByVal hdc As LongPtr, ByVal nBkMode As Long) As Long
第１引数には、デバイスコンテキスト（DC）のハンドルを指定します。第２引数には、以下の背景モード値を指定します。

(定数)	値	内容
TRANSPARENT	1	下の背景をそのまま残す（透過表現）
OPAQUE	2(既定)	選択されている背景色で背景を塗りつぶす

図９８別窓
「TRANSPARENT（値=1）」は、文字が書かれる下（ここではユーザーフォーム）の背景の上に文字を描画することになります。つまり、文字の背景色は透明となります。
一方で既定の「OPAQUE（値=2）」では、既定の背景色（≒白色）またはSetBkColor関数で設定した背景色の上に文字を描画します。
以下は図７５を改造した背景モード変更のコードで、背景モードを「既定モード（選択している背景色で塗りつぶし）」→「背景モードを透明化」→「元の背景モード」と変更しています。
なおデバイスコンテキスト（DC）のハンドルはhDCとして取得済みとします。

340. '==========　⇩(17)　背景モードの指定 ============
341. Sub TextOut_Draw5()
342. 　Dim str As String 　　　　 '←表示する文字列
343. 　Dim n As Integer 　　　　 '←文字数
344. 　Dim Old_BkMode As Long 　　 '←元の背景モード
346. 　str = "Win32APIへようこそ"
347. 　n = LenB(StrConv(str, vbFromUnicode))
349. 　Me.Repaint
351. 　Call TextOut(hdc, 50, 0, str, n) 　　 '←既定の背モードで描画（図１００の①）
353. 　　Old_BkMode = SetBkMode(hdc, 1) 　　 '←背景モードを透明化に変更
355. 　Call TextOut(hdc, 50, 50, str, n) 　　 '←透明の背景色で描画（図１００の②）
357. 　　Call SetBkMode(hdc, Old_BkMode) 　　 '←背景モードを元に戻す
359. 　Call TextOut(hdc, 50, 100, str, n) 　　 '←元の背景モードで描画（図１００の③）
361. End Sub

図９９別窓
まず３５１行目「Call TextOut(hdc, 50, 0, str, n)」より前には背景モードの設定をしていないので、既定の背景モード（塗りつぶし）での文字描画を行っています（図１００の①）。
３５３行目「Old_BkMode = SetBkMode(hdc, 1)」では、背景モードを透明化（値=1）に変更しています。 SetBkMode関数の戻り値は「元の背景モード」ですので、既定の背景モードが変数Old_BkModeに代入されます。
３５５行目の内容は３５１行目とほぼ同じ（描画位置が異なる）ですが、３５３行目で背景モードを透明化に変更した後なので、透明の背景で文字描画を行います（図１００の②）。
３５７行目「Call SetBkMode(hdc, Old_BkMode)」では再びSetBkModeを呼び出します。ここでは変数Old_BkMode（３５３行目で受け取った、元の既定背景モード）を指定していますので、背景モードは既定の塗りつぶしに戻ります。
３５９行目の内容は３５５行目とほぼ同じ（描画位置が異なる）ですが、３５７行目で背景モードを元に戻しているため、既定の背景モード（塗りつぶし）で描画を行います（図１００の③）。
描画されるユーザーフォームは、以下のようになります。

図１００別窓
Microsoftでは「テキスト、ハッチブラシ、ペンのいずれかの描画を行う前に、現在の背景色で背景を塗りつぶす」と説明しているように、このSetBkMode関数は「文字だけでは無く、直線や円形などのハッチングをした図形」に対しても影響を与えます。
作業工程として、矩形や丸・線を描画する前にも、一旦背景色で塗りつぶし、その上からペンやブラシで描画する　という手順なのかもしれません。
まず図１０１はPie関数で作成した円形ですが、この中で②と④は「CreateHatchBrush(2, RGB(255, 0, 0))」で斜めのハッチングをかけたものです。

図１０１別窓
SetBkModeの設定をしない（＝既定のOPAQUE(値=2) ）②では「ハッチングの下は白色」ですが、SetBkMode関数で透明化（TRANSPARENT(値=1) ）をした④は「ハッチングの下はフォームの色」となります。
一方、③のようにブラシで塗りつぶし（既定ブラシ＝白色塗りつぶし）をしていると、そのブラシの下は「実は透明」なのかもしれませんが、実際には見えません。
もし③の図形の真ん中をフォームの背景色としたい場合は、CreateBrushIndirect関数で透明ブラシを使用します。ここで「ブラシを透明にしても、背景は白のままでは？」との疑念も起こるのですが、結果は透明になります。どうもCreateBrushIndirect関数で透明化すると、連動してSetBkModeも透明化するようです。
また、線図の背景にもSetBkMode関数は影響を与えます。図１０２は「MoveToEx + LineTo」で、線種を変更して描画した線です。⑤はSetBkModeの設定をせず、⑥がSetBkMode関数で透明化をした結果です。
良く見ると、破線などの裏側は通常白色の背景となりますが、透明化をするとフォームの背景色となることが分かります。

図１０２別窓
なお透明化する値は図９８のように「1」ですが、試してみると「0」でも「3」でも透明化します。どうも「2以外は全て透明化」するようですが、Microsoftが途中で気が付いて修正してしまうかもしれませんので「透明化には1を指定」した方が安全です。

５．サンプルファイルの仕様

５－１．使い方

一番下の「サンプルファイル」には、上記のサンプルコードを載せてあり、また簡易的に実行されるようにしています。
まず図１０３のように「Sheet1上のボタンをクリック」することで、UserForm1が起動します。起動と同時に、図３８のコード（プロシージャ名＝Line_Draw1）が実行され、斜めの直線を描画します。次にユーザーフォーム上のどこかをクリックすると、次のコードである図４２（プロシージャ名＝Line_Draw2）を実行し折れ線を描画します。
サンプルコードは全部で１７個ありますので、クリックの都度描画内容が変わり（内容が同じものもあります）、最後の描画（図９９：プロシージャ名＝TextOut_Draw5）の次は先頭に戻るというトグル表示にしています。

図１０３別窓
またユーザーフォーム上には「Pen（ペン）」「Brush（ブラシ）」「Font（フォント）」の３つのチェックボックスがあります。初期状態はOFFとなっていて、各描画は「既定の道具（「よりみち」参照下さい）」での出力になります。
このチェックボックスをONにすると、それぞれの道具設定が描画内容に反映し、図１０４のように変化します。なお図１０４の左半分のように、円などの図形に対してはペン種とブラシ種は影響しますが、フォント種は影響しません。逆に文字に対して（図１０４の右半分）は、フォント種のみが影響します。
なお、チェックボックスの操作では実行する描画コードは移動せず、そのまま道具設定が反映されます。

図１０４別窓
道具の種類は、以下のように固定としました。コードを変更すれば、異なる道具設定が可能です。
　・ペン種＝太さ3ピクセルの赤色線「CreatePen(0, 3, RGB(255, 0, 0))」
　・ブラシ種＝45°右下がりハッチング「CreateHatchBrush(2, RGB(255, 0, 0))」
　・フォント種＝高さ24ピクセルの既定フォント「CreateFont(24, 0, 0, 0, 0, False, False, False, 128, 0, 0, 0, 0, "")」
終了するには、ユーザーフォームの右上×印をクリックして下さい。
なお今回のプログラムでは「画面拡大率」を考慮していません。図１０３や図１０４は拡大率100%のものなので、それ以外の拡大率のPCではユーザーフォームの大きさが変わり、描画の位置も違って見えますので御了解下さい。

５－２．プログラム内容

以下はサンプルファイルを動かすためのプログラムですので、GDI描画とはほとんど関係ありません。

５－２－１．ワークシート（Sheet1）

Sheet1上には、フォームコントロールのボタンを１つ配置し、そのボタンにはSheet1モジュールの「UFstartプロシージャ」を登録してあります。

図１０５別窓
Sheet1モジュールには、下記のように「UFstartプロシージャ」を置き、そこからUserForm1を起動しています。

370. '==========　⇩(18)　ユーザーフォームの起動 ============
371. Sub UFstart()
372. 　UserForm1.Show
373. End Sub

図１０６別窓

５－２－２．ユーザーフォーム（UserForm1）

フォーム上には、３つのCheckBoxと１つのLabelを配置しています。後からサンプルファイルを作っているので、描画される絵と多少ぶつかってしまっています。申し訳ありません。

図１０７別窓
CheckBoxは、ペン・ブラシ・フォントの道具種のON-OFFの役目をします。Labelは「クリックして下さい」との注意書き用です。なおCheckBoxは３つとも、初期は「チェック無し（Value=False）」状態にしています。
以下はフォームモジュールのコードです。
先頭の宣言部ではWin32API関数宣言を行っていますが、図０２などで紹介した宣言文を全て宣言しています。同じ宣言文（先頭にPrivateは付けています）ですので、ここでのコード紹介は省略します。なおサンプルファイルでは使われないAPI宣言も存在することを御了承下さい。
また32ビット版Excelのために「#If Win64 Then ～ #Else ～ #End If」で実行するAPI宣言を分けています（32ビットでは、64ビットの宣言から「PtrSafe」を削除しています）。
その後で、API宣言内でも使用している「POINTAPI」「RECT」「LOGPEN」「LOGBRUSH」「LOGFONT」の構造体の定義を行っています。この構造体についても重複しますので省略します。
その後の部分で、今回使用する共通変数の宣言等を図１０８のように行っています。

380. '==========　⇩(19)　共通変数の宣言等 ============
381. Private hwnd As LongPtr 　 'UserFormｳｨﾝﾄﾞｳﾊﾝﾄﾞﾙ
382. Private hdc As LongPtr 　 'UserFormｳｨﾝﾄﾞｳのﾃﾞﾊﾞｲｽｺﾝﾃｷｽﾄﾊﾝﾄﾞﾙ
384. Private hPen As LongPtr 　　 '設定ペン種のﾊﾝﾄﾞﾙ
385. Private hBrush As LongPtr 　 '設定ブラシ種のﾊﾝﾄﾞﾙ
386. Private hFont As LongPtr 　 '設定フォント種のﾊﾝﾄﾞﾙ
388. Private cnt As Integer 　 '現在表示しているプロシージャの順番
389. Const Maxcnt = 17 　　　　 'プロシージャの個数

図１０８別窓
３８１～３８２行目は、ウィンドウのハンドルとデバイスコンテキスト（DC）のハンドル変数宣言です。
３８４～３８６行目は、既定では無く新たに設定するペン・ブラシ・フォントのハンドルを格納する変数です。
３８８行目の変数cntは、現在表示しているプロシージャの順番を表し、値はユーザーフォームをクリックした時に発生するClickイベント（図１１１）内で変更されます。なおcnt値が使用されるのは、実行プロシージャを選択する時（図１１２）です。
３８９行目「Const Maxcnt = 17」はプロシージャの最大数の設定で、cnt値の折り返しに使用しています。
フォームが起動される時に呼び出されるInitializeイベントプロシージャが下記になります。

400. '==========　⇩(20)　フォーム起動時の設定 ============
401. Private Sub UserForm_Initialize()
402. 　Me.Width = 225 + (Me.Width - Me.InsideWidth)
403. 　Me.Height = 150 + (Me.Height - Me.InsideHeight)
405. 　hwnd = FindWindow("ThunderDFrame", Me.Caption) 　 'ｳｨﾝﾄﾞｳﾊﾝﾄﾞﾙ取得
406. 　hdc = GetDC(hwnd) 　　　 'デバイスコンテキスト(DC)のハンドル取得
408. 　hPen = CreatePen(0, 3, RGB(255, 0, 0))
409. 　hBrush = CreateHatchBrush(2, RGB(255, 0, 0))
410. 　hFont = CreateFont(24, 0, 0, 0, 0, False, False, False, 128, 0, 0, 0, 0, "")
411. End Sub

図１０９別窓
４０２～４０３行目では、フォームのサイズを決めています。大きさに特に意味はありません。
４０５行目「hwnd = FindWindow("ThunderDFrame", Me.Caption)」では、フォームのウィンドウハンドルを取得します。
FindWindow関数の第１引数にはユーザーフォームを意味する「"ThunderDFrame"」を、第２引数にはウィンドウ名を「Me.Caption」として指定しています。
４０６行目「hdc = GetDC(hwnd)」では、ユーザーフォーム上のデバイスコンテキスト（DC）ハンドルを取得しています。
GetDC関数を使用しているため、「クライアント領域（図０５参照）」のDCハンドルとなります。引数には４０５行目で取得したウィンドウハンドルを指定します。
４０８～４１０行目では、新たなペン・ブラシ・フォントを設定しています。
４０８行目「hPen = CreatePen(0, 3, RGB(255, 0, 0))」では、「実線（値=0）」「太さ3ピクセル（値=3）」「赤色（値=RGB(255, 0, 0)）」のペン種としています。
４０９行目「hBrush = CreateHatchBrush(2, RGB(255, 0, 0))」では、「45度右下がりのハッチ（値=2）」「赤色（値=RGB(255, 0, 0)）」のブラシ種としています。
４１０行目「hFont = CreateFont(24, 0, 0, 0, 0, False, False, False, 128, 0, 0, 0, 0, "")」は、「高さ24ピクセル（値=24）」「日本語のシフトJIS（値=128）」「既定フォント種（最後の引数値=""）」のフォント種としています。
それぞれのハンドル値は、変数hPen、hBrush、hFontに代入しています（変数はモジュール内共通変数）。
フォームが表示される時に発生するActivateイベントのプロシージャが以下になります。
実行内容は４２２行目「Call UserForm_Click」のみで、フォームの起動と同時に図１１１が呼び出され、１番目のサンプルコードが実行されて単線が描画されます。

420. '==========　⇩(21)　フォーム表示時の設定 ============
421. Private Sub UserForm_Activate()
422. 　Call UserForm_Click
423. End Sub

図１１０別窓
フォーム上をクリックした時には以下のClickイベントプロシージャが実行されます。
なおフォーム上と思ってクリックした場所にCheckBoxコントロールがあった場合には、CheckBoxのClickイベントが発生してしまい「UserForm_Clickイベントは発生しない」ので注意が必要です（Labelコントロールをクリックした場合には、今回イベント処理をしていない為、何も起こりません）。

430. '==========　⇩(22)　フォームクリック時のイベント ============
431. Private Sub UserForm_Click()
432. 　cnt = cnt + 1
433. 　If cnt > Maxcnt Then cnt = 1
435. 　Call Exec
436. End Sub

図１１１別窓
４３２行目「cnt = cnt + 1」では、モジュール変数cnt（現在表示されているプロシージャの順番）を次の順番に変更します。
しかし「現在の表示が一番最後（＝Maxcnt）」だった場合は、存在しないプロシージャを指す事になってしまいますので、４３３行目「If cnt > Maxcnt Then cnt = 1」でMaxcntを越えているか否かを調べ、越えていたら「1（＝先頭のプロシージャ）」にします。
新たに表示するプロシージャの順番が決まったら、４３５行目「Call Exec」で図１１２に移り、描画を実行するプロシージャを呼び出します。
描画を担当する各プロシージャを呼び出すのが以下です。このプロシージャは「フォームをクリックした時」に呼び出されるのとは別に、図１１３以下のCheckBox_Clickイベントプロシージャからも呼び出されます。
なお図１１２の内容を、図１１１のUserForm_Click内で実行させても良いのですが、チェックボックスをON-OFFした時に「描画内容を次に送らずに再描画」しようとするとUserForm_Click内が複雑になりそうだったため、プロシージャを分けています。
またプロシージャ名を配列にして、もっと短いコードで実行できるようにもしたかったのですが、フォームのプロシージャ呼び出しがRunメソッドでは出来ず、このような形になってしまいました。

450. '==========　⇩(23)　描画の実行（各プロシージャを実行） ============
451. Private Sub Exec()
452. 　Select Case cnt
453. 　　Case 1:　　　Call Line_Draw1
454. 　　Case 2:　　　Call Line_Draw2
455. 　　Case 3:　　　Call Ellipse_Draw1
456. 　　Case 4:　　　Call Chord_Draw1
457. 　　Case 5:　　　Call Pie_Draw1
458. 　　Case 6:　　　Call Rectangle_Draw1
459. 　　Case 7:　　　Call Polygon_Draw1
460. 　　Case 8:　　　Call Polygon_Draw2
461. 　　Case 9:　　　Call SetPixel_Draw1
462. 　　Case 10:　　　Call SetPixel_Draw2
463. 　　Case 11:　　　Call SetPixel_Draw3
464. 　　Case 12:　　　Call SetPixel_Draw4
465. 　　Case 13:　　　Call TextOut_Draw1
466. 　　Case 14:　　　Call TextOut_Draw2
467. 　　Case 15:　　　Call TextOut_Draw3
468. 　　Case 16:　　　Call TextOut_Draw4
469. 　　Case 17:　　　Call TextOut_Draw5
470. 　End Select
471. End Sub

図１１２別窓
４５２行目「Select Case cnt」は、モジュール内変数であるcnt（表示すべきプロシージャの順番）を見て、制御を割り振っています。
例えば「cnt = 2」ならば、４５４行目に飛び「Call Line_Draw2」を実行するという具合です。変数cntは図１１１で最大Maxcntに制御されていますので、４５３～４６９行目のどれかが実行されることになります。
フォーム上のCheckBox1（ペン種のON-OFF用）を操作した時には以下のClickイベントプロシージャが呼び出されます。

480. '==========　⇩(24)　ペン種チェックボックスのON-OFF ============
481. Private Sub CheckBox1_Click()
482. 　Static Previous_Pen As LongPtr 　　 '←既定ペンのハンドル
484. 　If Me.CheckBox1.Value = True Then 　　 '←チェック有の時
485. 　　Previous_Pen = SelectObject(hdc, hPen) 　　 '←設定ペンを選択する
486. 　Else
487. 　　Call SelectObject(hdc, Previous_Pen) 　　 '←ペンを元に戻す
488. 　End If
490. 　Call Exec 　　 '←現cntのプロシージャで再描画
491. End Sub

図１１３別窓
チェックボックスは、チェックが付いているとValue値がTrue、付いていないとFalseとなります。
４８４行目「If Me.CheckBox1.Value = True Then」でチェックの有無を調べ、チェックが付いている場合は４８５行目「Previous_Pen = SelectObject(hdc, hPen)」を実行します。
右辺のSelectObject関数の第１引数にはデバイスコンテキスト（DC）のハンドルを指定し、第２引数には図１０９の４０８行目で作成したペン種のハンドルを指定します。そしてSelectObject関数からの戻り値は左辺の変数Previous_Penに代入します。
この変数Previous_Penは、４８２行目で「Staticステートメント」で宣言されているため、フォームが表示されている間は記憶されていることになります。
チェックが外れた時には４８７行目「Call SelectObject(hdc, Previous_Pen)」が実行されます。第１引数にはDCハンドルを、第２引数には４８５行目で得た「既定のペン種のハンドル（変数Previous_Pen）」を指定しますので、ペン種は既定状態に戻る事になります。
なお、フォーム上のCheckBoxは初期にOFF状態としていますので、最初にCheckBox1_Clickが呼び出された時には「チェックボックスにチェックが入った（Value=True）」事になります。ですので必ず「４８７行目よりも４８５行目の方が、先に実行」されるので、変数Previous_Penが初期値ゼロのまま４８７行目が実行される事はありません。
ペン種の設定が完了したら、４９０行目「Call Exec」で図１１２を呼び出し、描画を行います。この時変数cntの値は変更させていませんので「同じ描画内容で、ペン種が変更」され、ペン種別の描画内容の違いが分かり易くなります。
フォーム上のCheckBox2（ブラシ種のON-OFF用）を操作した時には以下のClickイベントプロシージャが呼び出されます。

500. '==========　⇩(25)　ブラシ種チェックボックスのON-OFF ============
501. Private Sub CheckBox2_Click()
502. 　Static Previous_Brush As LongPtr 　　 '←既定のブラシのハンドル
504. 　If Me.CheckBox2.Value = True Then
505. 　　Previous_Brush = SelectObject(hdc, hBrush)
506. 　Else
507. 　　Call SelectObject(hdc, Previous_Brush)
508. 　End If
510. 　Call Exec
511. End Sub

図１１４別窓
内容は、ペン種の図１１３と同じです。
５０５行目「Previous_Brush = SelectObject(hdc, hBrush)」で、図１０９の４０９行目で作成したブラシ種のハンドルを指定します。 ５０７行目「Call SelectObject(hdc, Previous_Brush)」で、ブラシ種を既定に戻しています。
フォーム上のCheckBox3（フォント種のON-OFF用）を操作した時には以下のClickイベントプロシージャが呼び出されます。

520. '==========　⇩(26)　フォント種チェックボックスのON-OFF ============
521. Private Sub CheckBox3_Click()
522. 　Static Previous_Font As LongPtr 　　 '←既定のフォントのハンドル
524. 　If Me.CheckBox3.Value = True Then
525. 　　Previous_Font = SelectObject(hdc, hFont)
526. 　Else
527. 　　Call SelectObject(hdc, Previous_Font)
528. 　End If
530. 　Call Exec
531. End Sub

図１１５別窓
内容は図１１３、図１１４と同じです。
５２５行目「Previous_Font = SelectObject(hdc, hFont)」で、図１０９の４１０行目で作成したフォント種のハンドルを指定します。５２７行目「Call SelectObject(hdc, Previous_Font)」では、フォント種を既定に戻しています。
サンプルファイルでは図１１５と図１１６の間に、「描画作業」の説明文内で使った「実際に描画するプロシージャ」を置いています。
フォームを終了する際は、以下のQueryCloseイベントプロシージャが実行されます。

540. '==========　⇩(27)　フォームの終了処理 ============
541. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
542. 　Call DeleteObject(hPen)
543. 　Call DeleteObject(hBrush)
544. 　Call DeleteObject(hFont)
546. 　Call ReleaseDC(hwnd, hdc)
547. End Sub

図１１６別窓
５４２行目「Call DeleteObject(hPen)」では、図１０９の４０８行目で作成したペン種を削除しています。５４３～５４４行目も同様にブラシ種・フォント種を削除しています。
５４６行目「Call ReleaseDC(hwnd, hdc)」は、図１０９の４０６行目で取得したデバイスコンテキスト（DC）を解放しています。

アプリ実例・関連する項目

「Excel図形等の位置、ディスプレイ上の位置の取得」

サンプルファイル

フォーム上に図形や文字をGDI描画（its-047.xlsm）

セキュリティ向上を目的として「インターネット経由でダウンロードしたOfficeファイル（Excel等）のマクロは、既定でブロック」されるようにOfficeアプリケーションの既定動作が変更になりました。（2022年4月より切替開始） 解除の方法については「ダウンロードファイルのブロック解除方法」を参照下さい。