اريد عمل لووب على عدد من مربعات النص

يمكنك استخدام For Each

اليك هذا الكود بعمل Loop وملئ كل ال Textbox بأرقام متسلسلة عند الضغط على مفتاح Button1

		 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As   System.EventArgs) Handles Button1.Click
		Dim X As Integer = 1
		For I As Integer = 0 To Me.Controls.Count - 1
			If TypeOf Me.Controls(I) Is TextBox Then
				Me.Controls(I).Text = X
				X += 1
			End If
		Next
	End Sub