每个菜单的名字不同,所以代码如下:
Private Sub Command1_Click() '假设菜单有按钮 mnuA.Caption = "新的文字1" mnuB.Caption = "新的文字2" End Sub