如何遍历全部控件-递归方法

       '**********************************************************************  
        '*   函数名称:   SetTextBoxBlank
        '*   函数描述:   将一个窗体或容器内所有的文本框Text值清空.
        '*   参数列表:   objContain:传入要设置其包含文本框的容器（可以是窗体或其它容器）,
        '*                       bDepth:是否深度处理，True会把其下面子容器中的所有文本框值清空,False则只清空当前容器，对子容器没有影响。
        '*   返   回   值:   x=无
        '*   作                 者:   Itc-Lsg
        '*   创建日期:   2007-12-22  
        '**********************************************************************  
        Public   Sub   SetTextBoxBlank(ByRef   objContain   As   Object,   Optional   ByVal   bDepth   As   Boolean   =   True)
                Dim   tContain   As   Control

                For   Each   tContain   In   objContain.Controls
                        If   tContain.GetType().ToString   =   "System.Windows.Forms.TextBox"   Then
                                tContain.Text   =   ""
                        ElseIf   tContain.Controls.Count   >   0   Then
                                If   bDepth   =   True   Then
                                        SetTextBoxBlank(tContain)
                                End   If
                        End   If

                Next
        End   Sub