Código vb:
Ver original''La llamada
For Each ctrl As Control In ObténControlesSecundarios(Me)
If Ctype(ctrl is TextBox) orElse ctype(ctrl is combobox) etc... Then
ctrl.text = nothing
End If
Next
''El procedimiento
Private Function ObtenControlesSecundarios(ByVal parent As Control) As ArrayList
Dim resultado As New ArrayList()
For Each ctrl As Control In parent.Controls
' Agregue este control al resultado.
resultado.Add(ctrl)
' Llama recursivamente a este método para agregar también todos los controles secundarios.
resultado.AddRange(ObténControlesSecundarios(ctrl))
Next
Return resultado
End Function