مشکل در Controls

[mehdi_nan]

با سلام

من یه فرمی دارم که تعداد زیادی textBox روش گذاشتم.
حالا می خوام وقتی که کاربر روی یک دکمه کلیک کرد برنامه تمامی text های textBox ها رو بخونه چه طوری می تونم این کار رو بکنم.

راستی من این کار رو می کنم

ِDim x as Controls
For each x in frm.Controls
a=x.text
next

ولی این جوری text همه textbox ها رو Null گزارش می کنه.

ممنون اگه فوری کمکم کنید.

[علیرضا مداح]

سلام .

Dim strTexts As String
For Each Ctrl As Control In Me.Controls
If TypeOf Ctrl Is TextBox Then
strTexts &= Ctrl.Name & " : " & Ctrl.Text & vbCrLf
End If
Next
MsgBox(StrTexts)