'Rutina Para Borrar Los Controles De Un Formulario
Public Sub ClearAllControls(frmForm As Form)
Dim ctlControl As Object
' BORRA TODOS LOS CONTROLES
On Error Resume Next
For Each ctlControl In frmForm.Controls
ctlControl.Text = ""
ctlControl.ListIndex = -1
DoEvents
Next ctlControl
End Sub