VB.NET : Recuperare la collection dei controlli presente in una form.

La seguente subroutine in VB.NET permette di ricavare, in maniera ricorsiva, l'insieme dei controlli presenti all'interno di una form.
L'argomento Form è la form da cui ricavare l'elenco dei controlli ed è di tipo Object per permettere la ricorsione sui controlli all'interno di controlli di tipo Container.


Public Sub GetAllControls(ByVal Form As System.Object, ByRef Controls As System.Collections.ArrayList)
 Dim ctrl As System.Windows.Forms.Control
 If TypeOf Form Is Form Or TypeOf Form Is Control Then
  For Each ctrl In Form.controls
   Controls.Add(ctrl)
   GetAllControls(ctrl, Controls)
  Next
 End IF
End Sub