Trucos de Visual Basic 6.0 Limpiar todas las cajas de texto de un formulario

Podemos limpiar, o inicializar todos los campos de un formulario de visual basic 6.0 rápidamente.

Public Sub Limpiar(frmForm As Form)
Dim ctlControl As Object
On Error Resume Next
For Each ctlControl In frmForm.Controls ctlControl.Text = "" ctlControl.ListIndex = -1
DoEvents
Next ctlControl
End Sub