Dim C1Ribbon1 As C1Ribbon.C1Ribbon = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )
Dim a As New Windows.Forms.Label a.Text = "123456789" a.Font = new font("宋体", 20) a.backColor = color.red Dim b As New C1Ribbon.RibbonControlHost(a) b.name = "自定义项1" b.width = 300 C1Ribbon1.tabs("111").Groups("222").Items.Add(b)