Private Sub Command1_Click() Text1.Enabled = True End Sub Private Sub Form_Load() Text1.Enabled = False End Sub