标题：功能区字体

BaseMainForm.controls("C1Ribbon1").font = New Font("黑体", 12)
RibbonTabs("基本设置").Groups("功能组1").Items("用户名").text = "用户名:" & User.Name
RibbonTabs("基本设置").Groups("功能组1").Items("日期").text = "今天是:" & format(Date.now, "yyyy年MM月dd日 dddd")
RibbonTabs("基本设置").Groups("功能组1").Items("系统名称").text = "戴威百表汇进销存管理系统"

老师第一句改字体的全部菜单的，，，有没有可以改下面这些用户名单独的改字体，，给一个代码研究研究，谢谢