Private Sub Command1_Click() Text1.Visible = True Command2.Visible = TrueEnd SubPrivate Sub Form_Load() Text1.Visible = False Command2.Visible = FalseEnd Sub