Private Sub Command1_Click() Text1.Visible = False End Sub Private Sub Command2_Click() Text1.Visible = True Text1.Text = "VB程序设计" End Sub Private Sub Form_Load() End Sub