Public Class frmClearAll
 
    'Clear all controls on Form
    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles btnClear.Click
        ClearAll(Me) 'Call Sub procedure to clear Form
    End Sub
 
    'Sub procedure to clear all Text Boxes, Masked Text Boxes, and Check Boxes on Form
    Private Sub ClearAll(ByVal C As Control)
 
        Dim Ctrl As Control 'Declare generic control object
        Dim MyCheckBox As CheckBox 'Declare CheckBox control object
 
        For Each Ctrl In C.Controls
            Select Case TypeName(Ctrl)
                Case "TextBox" 'Do the following code if control is a Text Box
                    Ctrl.Text = ""
                Case "MaskedTextBox" 'Do the following code if control is a Masked Text Box
                    Ctrl.Text = ""
                Case "CheckBox" 'Do the following code if control is a Check Box
                    MyCheckBox = CType(Ctrl, CheckBox) 'Use here as generic control type
                    MyCheckBox.Checked = False         'Ctrl doesn’t have Checked property
                Case Else
                    If Ctrl.Controls.Count > 0 Then 'Check for container control
                        ClearAll(Ctrl) 'Recursively call sub for controls in container
                    End If
            End Select
        Next Ctrl
    End Sub
 
End Class