У меня есть рабочий пример класса объекта, который вы можете использовать, что делает этот код намного меньше кода.
http://www.members.shaw.ca/albertKallal/Ribbon/ribbon.htm
Выше вы можете использовать очень похожий подход предыдущего кода. Итак, чтобы установить картинку для ленты, вы можете перейти:
meRib("Button1").Picture = "HappyFace.png"
В той же загрузке есть рабочая форма, в которой некоторые изображения на ленте меняются по сравнению с вариантами, сделанными в форме.