CollectionsTest

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.TextBox4.Text = ""
        Dim c As Control
        Dim i As Integer
        For Each c In Me.Controls
            If c.GetType.Name.Equals("TextBox") Then
                Me.TextBox4.Text = TextBox4.Text & c.Name & " " & c.GetType.Name & vbCrLf
            End If
        Next
        For i = 1 To Me.Controls.Count - 1 Step 1
            Me.TextBox4.Text = TextBox4.Text & Me.Controls.Item(Me.Controls.IndexOfKey("textbox" & i)).Text
        Next
    End Sub
End Class