Private Sub Form_Load()
Command1.Enabled = FalseEnd SubPrivate Sub Text1_Change(Index As Integer)
Dim i As Long
For i = Text1.LBound To Text1.UBound
If Len(Text1(i)) = 0 Then Exit For
Next i
If i > Text1.UBound Then
Command1.Enabled = True
Else
Command1.Enabled = Fal