Limpiar todas las cajas de texto de un formulario
03.11.2010 19:27
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