显示按钮caption

Question

按任一子窗体上任一按钮，如何在主窗体标题栏显示该按钮的caption值？

Answer 1

Private Sub Command1_Click()
    主窗体.Caption = Me.ActiveControl.Caption
End Sub
Private Sub Command2_Click()
    主窗体.Caption = Me.ActiveControl.Caption
End Sub
Private Sub Command3_Click()
    主窗体.Caption = Me.ActiveControl.Caption
End Sub

Answer 2

MDIForm1.Toolbar1.Buttons(2).Caption =command1.Caption