菜单的
basemainform.controls("C1Ribbon1").Font = new font("宋体", 10)
窗口的要在窗口的afterload事件写入代码
For Each o As object In e.Form.Controls o.font = new font("宋体", 10)Next