[RESOLVED]Text1.text + Enabled + True? [PART 2!]

[Ellis Dee]

You can do it as a one-liner:

Private Sub TextBox1_Change()
    Command1.Enabled = (Len(TextBox1.Text) >= 10)
End Sub

Of course, I don't usually do it with only a single line. Anytime I set a control property in a procedure that can fire a bunch of times in quick succession, I tend to only set it if it has changed:

Private Sub TextBox1_Change()
    Dim blnEnabled As Boolean
    
    blnEnabled = (Len(TextBox1.Text) >= 10)
    With Command1
        If .Enabled <> blnEnabled Then .Enabled = blnEnabled 
    End With
End Sub

I do this because I'm irrationally averse to flicker.