Função Limpar Tudo

'Simplemente Cole no Modulo Public Sub LimparTudo(Formulario As Form) 'Comentario 'O paramentro que deve ser passado, no seu formulario com os dados 'quando voce for limpar os campos, use apenas "LimparTudo Me" 'Voce pode Modificar as parte que fala sobre MaskEdBox para 'limpar mais Tipos de Campos 'Obs. Para Limpar as MaskEdBox, No tag de Cada Objeto 'Coloque o Tipo de Dados que ele usa Dim Ctl As Control For Each Ctl In Formulario If TypeOf Ctl Is TextBox Then Ctl.Text = Empty ElseIf TypeOf Ctl Is MaskEdBox Then Select Case Trim(UCase(Ctl.Tag)) Case "DATA" Ctl.Text = "__/__/____" Case "CEP" Ctl.Text = "__.___-___" End Select ElseIf TypeOf Ctl Is ComboBox Then Ctl.ListIndex = -1 End If Next End Sub