HSPTV!掲示板

フォント選択ダイアログについてなんですが、うまくいきません。
どこが悪いのでしょうか？

#include "hsp3utf.as"
#uselib "comdlg32.dll"
#func ChooseFont "ChooseFontW" int

mref bmscr, 67
dim chfont,16
dim logfont,16
sdim fontname,32

chfont.0 = 60
chfont.1 = bmscr.13
chfont.3=varptr(logfont)
chfont.5 = 0x01000141

pm=varptr(chfont)
ChooseFont pm 
if stat == 0 : stop     

style=0
if (chfont.12 & 0x0100):style=style+1
if (chfont.12 & 0x0200):style=style+2 
if (logfont.5 & 0x0000FF00):style=style+4 
if (logfont.5 & 0x00FF0000):style=style+8
size=chfont.4/10
memcpy fontname,logfont,32,0,28

font fontname,size,style
mes "ひらがなカタカナ漢字ABCabc"
stop

フォント名の文字コードの問題でしょうか。

#include "hsp3utf.as"
#uselib "comdlg32.dll"
#func ChooseFont "ChooseFontW" int

mref bmscr, 67
dim chfont,16
dim logfont,16
sdim fontname,32

chfont.0 = 60
chfont.1 = bmscr.13
chfont.3=varptr(logfont)
chfont.5 = 0x01000141

pm=varptr(chfont)
ChooseFont pm 
if stat == 0 : stop     

style=0
if (chfont.12 & 0x0100):style=style+1
if (chfont.12 & 0x0200):style=style+2 
if (logfont.5 & 0x0000FF00):style=style+4 
if (logfont.5 & 0x00FF0000):style=style+8
size=chfont.4/10
memcpy fontname,logfont,32,0,28

fontname2 = "";
fontname2 = cnvwtos(fontname);		// Unicode(UTF-16)文字列をUTF-8文字列に変換
font fontname2,size,style;			// UTF-8文字列でフォントを設定

mes "ひらがなカタカナ漢字ABCabc"
stop

返信が遅くなってすみません!
cnvwtos入れるの忘れてました。
ありがとうございます!