Código (vb) [Seleccionar]
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
Usage:
Código (vb) [Seleccionar]
Call Limpiar("Nombre_Formulario")
:http://www.mistrucos.net/truco-visual-basic-6-limpiar-todas-las-cajas-de-texto-de-un-formulario-660.htm