加上一个toolbar,加一个imagelist控件，将imagelist里面加上一些图片，然后在toolbar的属性的图像列表选imagelist,在去toolbar的第二个选项卡中，插入一些按钮，每一个按钮都加一个关键字，然后给Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)里面写代码，select case button.key case "关键字1" case "关健字2"end select
温馨提示：答案为网友推荐，仅供参考