FindControlRecursive.vb

''' <summary>
''' Finds a Control recursively. Note finds the first match and exists
''' </summary>
''' <param name="ContainerCtl"></param>
''' <param name="IdToFind"></param>
''' <returns></returns>
Public Shared Function FindControlRecursive(Root As Control, Id As String) As Control
    If Root.ID = Id Then
        Return Root
    End If

    For Each Ctl As Control In Root.Controls
        Dim FoundCtl As Control = FindControlRecursive(Ctl, Id)
        If FoundCtl IsNot Nothing Then
            Return FoundCtl
        End If
    Next

    Return Nothing
End Function