Dim myTextBox as TextBox
        For Each c In Me.Controls
            If TypeOf c Is TextBox Then
                myTextBox = CType(c, TextBox)
                myTextBox.Clear()
            End If
        Next

fg viperbone