要转换对象的
Dim b As object = ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon).Tabs("功能区").Groups("功能组").Items("组合框")
If Typeof b Is C1Ribbon.RibbonComboBox Then
b.DroppedDown = True
End If