For EACH

[roortiz]

Hola, quisiera saber como hacer con for...each para limpiar los cuadros de texto de un formulario.
Es que en un formulario tengo muchos textbox y cuando hago clic en el boton limpiar quisiera que se haga automaticamente con una sentecia FOR EACH, sin tener que estas poniendo textbox1.text="" para cada uno.

como puedo hacerlo? garcias

[Beakdan]

Roortiz:
Esto te puede ayudar:

Código:

Private Sub ClearTextBoxesText()
Dim ctrlIter As VB.Control
Dim ctrlText As VB.TextBox
	For Each ctrlIter In Me.Controls
		If TypeOf ctrlIter Is VB.TextBox Then
			Set ctrlText = ctrlIter
			ctrlText.Text = ""
		End If
	Next ctrlIter
End Sub

Saludos.

[roortiz]

Gracias, muchas gracias