这样的需求，可以通过判定本地参数LCID的值来处理，简体中文的LCID值是2052；英文的LCID值是1033。

根据这个规则，使用下面代码即可实现：

 控件名称.FontName = IIf(GetParameter("LCID")="1033", "Times New Roman", "宋体 (主体)")