[RESOLVED] For each Method

[ryanframes]

hi guys, i have 3 textbox like this :

Private Sub Command1_Click()
Dim a As Object
Dim T As TextBox
Set a = T
For Each a In Form1
    a.Text = "TEST"
Next a
End Sub

but after the last text have been filled with "TEST" it show msgbox "Run Time error 13 Type Mismatch"

can u help me to solve this problem plz