1)最“官方”的方法
Option Explicit
Private Sub Command1_Click()
' 利用 Command2.Value = True, 模拟Command2鼠标点击而引发Click事件
' 进而调用Command2 的Click事件处理程序
Command2.Value = True
End Sub
Private Sub Command2_Click()
Beep
End Sub
2)最“直接”的方法
Option Explicit
Private Sub Command1_Click()
'直接调用Command2_Click
Command2_Click
End Sub
Private Sub Command2_Click()
Beep
End Sub