Limpiar cajas de texto

he solucionado el problema en parte con este codigo:
For Each obj In Me.Tab1.Controls
'For Each obj In Me.Controls
If TypeOf obj Is TextBox Then
CType(obj, TextBox).Text = ""
End If
Next obj
El gran problema es que tengo 3 tabs con 15 cajas de tetxo cada uno. y este
codigo no hace nada

"Barbaroja" wrote:

Hola a todos. Tenfo un form con 15 cajas de texto. Me gustarias vaciarlas
todas con algun procedimiento rapido he probado esto pero no me funciona.
Alguna solución?

Public Sub LimpiarControles(ByVal frmForm As Form)

Dim ctlControl As Control

On Error Resume Next
For Each ctlControl In frmForm.Controls
ctlControl.Text = ""
Next ctlControl
Modificado = False
End Sub

Como las cajas de texto estan contenidas dentro de otros controles, debemos
implementar una funcion recursiva para lograr esto:

Private Sub LimpiarCajasTexto(ByVal Controles As Form.ControlCollection)
For Each Control As Control In Controles
If TypeOf Control Is TextBox Then
Control.Text = ""
Else
Me.LimpiarControles(Control.Controls)
End If
Next
End Sub

con lo cual, bastara con ejecutar:

Me.LimpiarCajasTexto(Me.Controls)

para limpiar todas las cajas de texto del formulario.

Saludos
Pedro Luna, [MVP VB.NET]
Gye, Ecu