Private Sub btnHide_Click()
Label1.Visible = Flase
btnShow.Enabled = True
btnHide.Enabled = Flase
Form1.Caption = "单击“显示”按钮显示文字"
End Sub
Private Sub btnShow_Click()
Label1.Visible = True
btnShow.Enabled = False
btnHide.Enabled = True
Form1.Caption = "单击“隐藏”按钮隐藏文字"
End Sub
Private Sub Form_Load()
Form1.Caption = "单击“显示”按钮显示文字"
End Sub