For each controls

Sub AzzeraText(ByVal ctrl As Control)

'*******************************

'pulisce tutte le tectbox

'*******************************


Dim ctrlChild As Control
For Each ctrlChild In ctrl.Controls
If TypeOf (ctrlChild) Is System.Windows.Forms.TextBox Then
ctrlChild.Text = ""
End If

Next


End Sub

' viene utilizzata in questo modo:


' AzzeraText(Me)