在英文操作系统下指定中文字体出错?怎么办

RtlMoveMemory font.lfFaceName(0), ByVal CStr(m_TxtMarkFont), LenB(StrConv(m_TxtMarkFont, vbFromUnicode)) + 1字体好象指定没有生效,而且
TextOut TargetDC, 5, 5, "我是一个学生", LenB(StrConv(strText, vbFromUnicode))
没有完全输出来,出现乱码