مشكلة في اندكس الكونترول

السلام عليكــم ورحمـة الله وبركاتــه ،،

جرب هذا الكود

Public Class Form1

	Dim controlArray As Generic.List(Of TextBox)

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		controlArray = New Generic.List(Of TextBox)
		controlArray.AddRange(New TextBox() {Me.TextBox1, Me.TextBox2, Me.TextBox3})
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		For Each ctrl As TextBox In controlArray
			MsgBox(ctrl.Text)
		Next
	End Sub
End Class