那就改成
Dim a As object = BaseMainForm.controls("C1Ribbon1")a.Visible = TrueSyscmd.Project.OpenSystemMenu()