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