如何用VBA赋应用程序图标？

属于Toolbar 控件使用举个例子说明，在一个Toolbar控件中添加五个 Button 对象，并且向每个 Button 对象添加二个 ButtonMenu 对象。单击ButtonMenu对象时，其行为由ButtonMenuClick事件来决定。为了试验本例，在窗体中放置一个 Toolbar 控件，将代码粘贴到代码模块的声明部分。Option ExplicitPrivate Sub Toolbar1_ButtonMenuClick(ByValButtonMenu As ComctlLib.ButtonMenu)   Select Case ButtonMenu.Index   Case 1      MsgBox &quotress the button."   Case 2      MsgBox "Offer some option"   End SelectEnd Sub