Private Sub ProceedTextBoxes(ByRef toContainer As Control)

    '
    ' loop through control members in toContainer
    '
    Dim loControl As Control
    For Each loControl In toContainer.Controls
        '
        ' Process only the textbox type.
        '
        If TypeOf loControl Is TextBox Then
            '
            ' Clear the control.
            '
            If loControl.Visible Then
                loControl.Text = Space(0)
            End If
        End If
    Next loControl
End Sub