Private Function FindControlInControl(ByRef pCtl As System.Web.UI.Control, _
  ByVal id As String) As System.Web.UI.Control
        Dim iCtl As New System.Web.UI.Control
        Dim tmpCtl As New System.Web.UI.Control
        For Each iCtl In pCtl.Controls
            tmpCtl = iCtl.FindControl(id)
            If Not tmpCtl Is Nothing Then
                FindControlInControl = tmpCtl
                Exit For 'found
            Else
                If iCtl.Controls.Count > 1 Then
                    tmpCtl = FindControlInControl(iCtl, id)
                    If Not tmpCtl Is Nothing Then
                        FindControlInControl = tmpCtl
                        Exit For 'found
                    End If
                End If
            End If
        Next
    End Function