1、
Dim r As object = BaseMainForm.controls("C1Ribbon1")Dim a = r.Tabs("Common").Groups("ClipBoard").Items("组合框1")a.DropDownStyle = 1
2、
Dim r As object = BaseMainForm.controls("C1Ribbon1")Dim a = r.Tabs("Common").Groups("ClipBoard").Items("文本框1").TextBoxa.Select