More code... [resolved]

[thegreatone]

I think from my code it is obvious what i am trying to do, but where did i go wrong ? And how can it be fixed ?

Private Sub Command1_Click()
Dim ctrl As Control
For Each ctrl In Form1
If ctrl = TextBox Then
ctrl.BackColor = Text1.Text
End If
DoEvents
Next
End Sub