此主题相关图片如下：1604363088(1).png

就是想达到图片的效果，我用以下代码在命令窗口是可以，但在AfterOpenProject事件中未成功，请问怎么做？

\'\'\'
Dim a As C1Ribbon.C1Ribbon = BaseMainForm.controls("C1Ribbon1")
a.height = 106
basemainform.height = a.height  \'项目高度
ApplicationMenu.visible = False  \'隐藏程序菜单
RibbonTabs.HideTabHeaderRow = True      \'隐藏功能区标题QAT.Visible = False  \'隐藏快速访问栏
BaseMainForm.Controls("C1StatusBar1").Visible = False  \'隐藏状态栏
BaseMainForm.Controls("MainPages").Visible = False \'隐藏表主页
QAT.Visible = not QAT.Visible  \'隐藏快速访问栏
BaseMainform.MaximizeBox = True      \'隐藏最大化
BaseMainform.MinimizeBox = False \'隐藏最最小化
BaseMainForm.Text = "主表管理" \'程序标题
Applicati
BaseMainform.WindowState = 0 \'正常