Como limpiar tdos los campos?

[djdIeGuIn]

Usteds saben q limpia un campo... es fácil el código:

Text1.Text=""


Pero...... si quiero LIMPIAR TODO?!?!?! tengo q poner cada campo asi? hay otro modo?

[claudiovega]

dim ctrl as control

for each ctrl in controls
ctrl.text=""
next

[Marval]

Yo siempre he ido uno por uno, no sé si hay otra forma, si la de arriba funciona, dimelo porfavor. Me gustaría saberlo.

[djdIeGuIn]

a mi no me ha funcionado. creo q le falta algo a:

dim ctrl as control

for each ctrl in controls
ctrl.text=""
next

alguien sabe? gracias

[Sabroso]

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