主题：如何在菜单中调用已有窗口中的控件

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)

您有时间吗？帮忙能给看看是什么问题吗？这是我第一次做这个，菜单是最后一个环节了，谢谢您。