主题：这个菜单代码有何错误？

Select Case e.Sender.Name
    Case "首页"
        Forms("首页").open()
        MainTable = Tables("person")

        一、想设置点击首页时，那个图标的高度高一点
        'Dim a As C1Ribbon.C1Ribbon = BaseMainForm.controls("首页")
        'a.height = 55

       二、想设置点击首页时，首页功能区时XXX系统的一张图片
        ''Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("首页"),C1Ribbon.C1Ribbon )
        'Dim a As New Windows.Forms.picturebox
        'a.image = getimage("d:\test.png")
        'Dim b As New C1Ribbon.RibbonControlHost(a)
        'b.name = "自定义项1"
        'b.width = 300
        'C1Ribbon1.tabs("功能区").Groups("功能组1").Items.Add(b)

以上两段代码分别添加后，都报错，对象没有添加到对象实例上？不太懂，请老师指点下