参考代码
Dim a As object = BaseMainForm.controls("C1Ribbon1")a.ApplicationMenu.LargeImage = getimage("d:\test.jpg")