-

    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