un metodo de busqueda de controles recursivo

Function BuscarControl(ByVal padre As Control, ByVal id As String)
Dim ctl As Control = padre.FindControl(id)
If ctl Is Nothing Then
For Each item As Control In padre.Controls
ctl = BuscarControl(item, id)
If ctl IsNot Nothing Then Exit For
Next
End If
Return ctl
End Function

http://www.pointsolutions.com.ar/desarrollo_web.aspx