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、【那个图标的高度】，是指哪里？截图说明一下；

2、添加图片的代码，应该写到afterOpenProject事件，才行。代码改成（红色的才需要改）

Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )

Dim a As New Windows.Forms.picturebox
a.image = getimage("d:\\test.jpg")
Dim b As New C1Ribbon.RibbonControlHost(a)
b.name = "自定义项1"
b.width = 300
C1Ribbon1.tabs("功能区1").Groups("功能组1").Items.Add(b)

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

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

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

1、不可能有这么大的间隔的，单独做一个实例发上来测试；

2、是的。