gistfile1.txt

 Protected Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
        ClearTextBox(Me)
    End Sub
   Public Sub ClearTextBox(ByVal root As Control)
        For Each ctrl As Control In root.Controls
            ClearTextBox(ctrl)
            If TypeOf ctrl Is TextBox Then
                CType(ctrl, TextBox).Text = String.Empty
            End If
        Next ctrl
    End Sub