主题：程序菜单

basemainform.ControlBox = False
Dim a As object = BaseMainForm.controls("C1Ribbon1")
a.ConfigToolBar.items("FoxHomeButton").Visible = False
'StatusBar.Message1 = " "
Dim b As object = BaseMainForm.controls("C1StatusBar1")
b.visible = False