Binaryworld - ResetControls - Reset the value for the input array of controls ... [ VB.net -> Controls ]

' Resets the value for the input array of controls, and thier child controls
' Example:
' - reset all the controls on the form: ResetControls(Me)
' - reset specific controls: ResetControls(TextBox1, CheckBox1, GroupBox1)

Sub ResetControls(ByVal ParamArray ctls() As Control)
  ' clear input control
  Dim ctl As Control
  For Each ctl In ctls
    If TypeOf (ctl) Is TextBoxBase Then
      CType(ctl, TextBoxBase).Text = ""
    ElseIf TypeOf (ctl) Is CheckBox Then
      CType(ctl, CheckBox).Checked = False
    ElseIf TypeOf (ctl) Is RadioButton Then
      CType(ctl, RadioButton).Checked = False
    ElseIf TypeOf (ctl) Is ListView Then
      CType(ctl, ListView).Items.Clear()
    ElseIf TypeOf (ctl) Is TreeView Then
      CType(ctl, TreeView).Nodes.Clear()
    ElseIf TypeOf (ctl) Is ListBox Then
      CType(ctl, ListBox).Items.Clear()
    ElseIf TypeOf (ctl) Is ComboBox Then
      CType(ctl, ComboBox).Items.Clear()
      CType(ctl, ComboBox).Text = ""
      ' Note: to add support for more controls just add more ElseIf blocks
    End If
    ' clear all child controls, if any
    Dim c As Control
    For Each c In ctl.Controls
      ResetControls(c)
    Next
  Next
End Sub