Limpiar todos los cuadros de texto en Visual Basic 2005

Esta instruccion limpia todos los cuadros de texto que se encuentren en el formulario

Dim x As Control
For Each x In Me.Controls
If TypeOf x Is TextBox Then x.Text = ""
Next