[RESOLVED] For each Method

hi guys, i have 3 textbox like this :

ForEach Code:

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 :(

That looks rather like VB6 code. Are you sure that you've posted to the correct forum?

oops.. sorry wrong forum..

oops sorry wrong forum.

Moved to the VB6 forum.

try this too

Code:

---

Dim t As Control
For Each t In Me.Controls
    If TypeOf t Is TextBox Then
        t.Text = "TEST"
    End If
Next

---

Quote:

---

Originally Posted by seenu_1st

try this too

Code:

---

Dim t As Control
For Each t In Me.Controls
    If TypeOf t Is TextBox Then
        t.Text = "TEST"
    End If
Next

---

---

thx for solved my problem..
how to mark this thread as solved thread ???

click thread tools > Mark thread resolved, above the 1st post.

Quote:

---

Originally Posted by seenu_1st

click thread tools > Mark thread resolved, above the 1st post.

---

thx ,,, :)