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

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)

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

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

1、如上图所示，图标的高度是指，我在首页的功能组中放一个标准按钮，然后按钮的图标是XXX系统，但是这个图标没有完全填充这个功能组，尤其是距离上面还有一点点缝隙

2、2的方法也是在首页的功能组中添加一个图片，也无法完全填充功能组，本质上还相当于按钮？ 我测试结果如上图所示，不知是我理解的是否对，请老师指点