29/04/2004, 15:50
|
 | | | Fecha de Ingreso: noviembre-2001 Ubicación: Guaymas, Sonora
Mensajes: 454
Antigüedad: 23 años, 3 meses Puntos: 0 | |
| checa esta forma
Public Sub LimpiarControles(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
Última edición por Sabroso; 29/04/2004 a las 15:53 |