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)