'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