代码如下:
Private Sub Command1_Click() '假设Toolbar1有按钮,修改第一个按钮的文字 Toolbar1.Buttons(1).Caption = "新的按钮文字" End Sub