Private Sub Command1_Click() Text1.Enabled = TrueEnd SubPrivate Sub Form_Load() Text1.Enabled = FalseEnd Sub