指定のデバイスコンテキストに選択されている現在のフォント名を取得する
Declare Function GetTextFace Lib "gdi32.dll" Alias "GetTextFaceA" _hdc
(ByVal hdc As Long, ByVal nCount As Long, ByVal lpFacename As String) As Long
デバイスコンテキストのハンドルnCount
lpFacenameのバイト数lpFacename
(戻り値)フォント名
vbNullStringのときフォント名のバイト数が戻る。
戻り値正常終了のとき 取得した文字列のバイト数
エラーのとき 0