For r As Integer = 0 To Me.Controls.Count - 1 If TypeOf Me.Controls(r) Is TextBox Then Me.Controls(r).Text = r End If Next