Binaryworld - GetAllControls - Retrieving all the controls inside a container and it ... [ VB.net -> Controls ]

' Returns an array with all the controls in the specified container control and
' its child containers
' Example:
'  ' print the name of all the controls on the form and its child container
' controls
'  Dim ctl As Control
'  For Each ctl In GetAllControls(Me)
'    Debug.WriteLine(ctl.Name)
'  Next

Function GetAllControls(ByVal container As Control) As Control()
  Dim al As New ArrayList
  Dim ctl As Control
  For Each ctl In container.Controls
    GetAllControlsHelper(ctl, al)
  Next
  Return al.ToArray(GetType(Control))
End Function

Sub GetAllControlsHelper(ByVal container As Control, ByVal al As ArrayList)
  ' add this control to the ArrayList
  al.Add(container)
  ' add all its child controls, by calling this routine recursively
  Dim ctl As Control
  For Each ctl In container.Controls
    GetAllControlsHelper(ctl, al)
  Next
End Sub