主题：可以把菜单栏放在下面，上面写几个大字，，XXXXXXXXX系统，居中

你试试这样

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)