Binaryworld - FindControlRecursive - Find a control in a hierarchy of controls ... [ ASP.net -> Controls ]

' Find a control in a hierarchy of controls
' Example:
' Dim txtCtl As Control = FindControlRecursive(DataGrid1, "FirstNameTextBox")

Function FindControlRecursive(ByVal ctrl As Control, _
  ByVal id As String) As Control
  ' Exit if this is the control we're looking for.
  If ctrl.ID = id Then Return ctrl

  ' Else, look in the hiearchy.
  Dim childCtrl As Control

  For Each childCtrl In ctrl.Controls
    Dim resCtrl As Control = FindControlRecursive(childCtrl, id)
    ' Exit if we've found the result
    If Not resCtrl Is Nothing Then Return resCtrl
  Next
End Function