Dim a As object = BaseMainForm.controls("C1Ribbon1")
a.QAT.font = new font("宋体",10) a.qat.visible = True a.ApplicationMenu.visible = False a.ConfigToolBar.visible = False For Each t As object In a.tabs t.visible = False Next forms("项目信息").controls("panel1").basecontrol.controls.add(a)