参考答案

Private Sub Command1_Click()
    Command1.Caption = Label1
    Label1.Visible = False
End Sub