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