Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim c As Control
        Dim var As String = "Hello"
        For Each c In Me.Controls
            If TypeOf c Is TextBox Then
                c.Text = var
            End If
        Next
    End Sub

fg viperbone