Private Function FindPanel(ByVal name As String) As Panel
        Dim p As Panel = Nothing
        For Each c As Control In Me.Controls
            Me.FindPanel(name, c, p)
        Next
        Return p
    End Function
 
    Private Sub FindPanel(ByVal name As String, ByVal current_Control As _
      Control, ByRef foundPanel As Panel)
        If TypeOf (current_Control) Is Panel AndAlso _
        current_Control.Name.ToUpper().Equals(name.ToUpper()) Then
            If foundPanel Is Nothing Then
                foundPanel = DirectCast(current_Control, Panel)
            Else
                Return
            End If
        End If
        For Each c As Control In current_Control.Controls
            FindPanel(name, c, foundPanel)
        Next
    End Sub