Public Class Utilities
 
    Public Function Iteration(ByVal formToIterate As Form, _
    ByVal TypeOfControlToGet As Control) As List(Of Control)
 
        ' Create List of Array to store the iterated controls
        Dim arrControls As New List(Of Control)
        Dim ctrl As Control
 
        ' Iterate/Loop through the form, 
        ' searching for the specified type of control to get
        For Each ctrl In formToIterate.Controls
 
            ' Store the control
            If ctrl.GetType Is TypeOfControlToGet.GetType Then
                TypeOfControlToGet = ctrl
                arrControls.Add(TypeOfControlToGet)
            End If
 
        Next
 
        Return arrControls
 
    End Function
 
End Class
 
 
 
' Usage Example:
' Change all the Text Property of all the Label 
' Controls in the current form
 
Public Class Form1
 
      Private Sub Form1_Load(ByVal sender As Object, _
    ByVal e As System.EventArgs) _
    Handles Me.Load
 
        Dim utilityClass As New Utilities
        Dim xlabel As New Label
        Dim arrayList As List(Of Control)
 
        ' This will get all the Label control from the form
        arrayList = utilityClass.Iteration(Me, xlabel)
 
        ' Change text displayed of all the labels in the form
        For Each c As Control In arrayList
            c.Text = "Sample Text"
        Next
 
    End Sub
 
End Class