参考答案

Private Sub Command1_Click()
    Label1.Visible = True
    Label1.Caption = Text1.Text
    Text1.Visible = False
End Sub