FUNCIÓN LIMPIA

  
La función limpia todos los elementos del formulario dado
El parámetro de entrada fo es el formulario.
La función utiliza la colección Controls para recorrer todos los elementos del formulario fo.

Function limpia(fo As Form)
    Dim A As Object
    For Each A In fo.Controls
        On Error Resume Next
        If TypeOf A Is TextBox Then A = Empty
        If TypeOf A Is CheckBox Then A.Value = False
        If TypeOf A Is ComboBox Then A.ListIndex = 0
        If TypeOf A Is TextBox Or TypeOf A Is ComboBox Then A.EnterFieldBehavior = 1
        On Error GoTo 0
    Next A
End Function

Sebastián Rebolledo Soto