LIMPANDO MASKEDITBOX SEM PERDER A M?SCARA

 Public Enum Limpa_Controle
        Todos = 0
        TextBox = 1
        ComboBox = 2
        MaskedTextBox = 3
        DateTimePicker = 4
    End Enum

 Public Property Limpeza As New Limpa_Controle

 Public Sub LimpaCampos(ByVal c As Control, ByRef Limpeza As Limpa_Controle)
        [ô] Percorre a coleção de controles de c.
        Select Case Limpeza
            Case Limpa_Controle.Todos

                For Each ctr As Control In c.Controls
                    [ô] Verifica se o controle tem controles filhos; 
                    [ô] se tiver, percorre a coleção. 
                    If (ctr.Controls.Count > 0) Then
                        Call LimpaCampos(ctr, Limpa_Controle.Todos)
                    End If
                    [ô] Se encontrar um TextBox, limpa.  

                    If (TypeOf ctr Is TextBox) Then
                        Dim t As TextBox = DirectCast(ctr, TextBox)
                        t.Text = String.Empty
                    End If
                    [ô] Se encontrar um ComboBox, limpa.  
                    If (TypeOf ctr Is ComboBox) Then
                        Dim t As ComboBox = DirectCast(ctr, ComboBox)
                        t.Text = String.Empty
                    End If
                    If (TypeOf ctr Is MaskedTextBox) Then
                        Dim t As MaskedTextBox = DirectCast(ctr, MaskedTextBox)
                        t.Clear()
                    End If
                    If (TypeOf ctr Is DateTimePicker) Then
                        Dim t As DateTimePicker = DirectCast(ctr, DateTimePicker)
                        t.Value = Today
                    End If
                    [ô] Coloque aqui mais controles 
                    [ô]... 
                Next

                [ô]=================[ Individual : Texbox ]===================
            Case Limpa_Controle.TextBox
                For Each ctr As Control In c.Controls
                    [ô] Verifica se o controle tem controles filhos; 
                    [ô] se tiver, percorre a coleção. 
                    If (ctr.Controls.Count > 0) Then
                        Call LimpaCampos(ctr, Limpa_Controle.TextBox)
                    End If
                    [ô] Se encontrar um TextBox, limpa.  

                    If (TypeOf ctr Is TextBox) Then
                        Dim t As TextBox = DirectCast(ctr, TextBox)
                        t.Text = String.Empty
                    End If
                Next
                [ô]=================[ Individual : Combobox ]===================
            Case Limpa_Controle.ComboBox
                For Each ctr As Control In c.Controls
                    [ô] Verifica se o controle tem controles filhos; 
                    [ô] se tiver, percorre a coleção. 
                    If (ctr.Controls.Count > 0) Then
                        Call LimpaCampos(ctr, Limpa_Controle.ComboBox)
                    End If
                    [ô] Se encontrar um Combobox, limpa.  

                    If (TypeOf ctr Is ComboBox) Then
                        Dim t As ComboBox = DirectCast(ctr, ComboBox)
                        t.Text = String.Empty
                    End If
                Next
                [ô]=================[ Individual : Maskedbox ]===================
            Case Limpa_Controle.MaskedTextBox
                For Each ctr As Control In c.Controls
                    [ô] Verifica se o controle tem controles filhos; 
                    [ô] se tiver, percorre a coleção. 
                    If (ctr.Controls.Count > 0) Then
                        Call LimpaCampos(ctr, Limpa_Controle.MaskedTextBox)
                    End If
                    [ô] Se encontrar um Maskedbox, limpa.  

                    If (TypeOf ctr Is MaskedTextBox) Then
                        Dim t As MaskedTextBox = DirectCast(ctr, MaskedTextBox)
                        t.Clear()
                    End If
                Next
                [ô]=================[ Individual : DateTimePicker ]===================
            Case Limpa_Controle.DateTimePicker
                For Each ctr As Control In c.Controls
                    [ô] Verifica se o controle tem controles filhos; 
                    [ô] se tiver, percorre a coleção. 
                    If (ctr.Controls.Count > 0) Then
                        Call LimpaCampos(ctr, Limpa_Controle.DateTimePicker)
                    End If
                    [ô] Se encontrar um DateTimePicker, limpa.  

                    If (TypeOf ctr Is DateTimePicker) Then
                        Dim t As DateTimePicker = DirectCast(ctr, DateTimePicker)
                        t.Value = Today
                    End If
                Next
        End Select
    End Sub