>>186
cc = 30 - LenB(StrConv(Name(i), vbFromUnicode))
これで上手く行ったぞ。
タンクス

>>187
＞lstrlenでもいいがな
　いみわかんねー。そんな関数ないずら。

＞193
＞MSゴシックはポイントを1.5の倍数
＞9.0 とか 10.5 にしないとそろわない
　何かの勘違いと思われ。
　１０、でも９　でもうまくいった。１０．５ってのは
　VB６にはなかったぞ。