难森野锋此晌道你想要这个:Private Sub Command1_Click()Print "已点击脊棚command1"End SubPrivate Sub Command2_Click()If MsgBox("您要执行Command1的点击事件过程吗?", 1) =1 Then Command1_ClickEnd Sub