' 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 NextEnd Sub


The Best Mechanical Keyboards For Programmers: Where To Find Them
When it comes to programming, a good mechanical keyboard can make all the difference. Naturally, you would want one of the best mechanical keyboards for programmers. But with so many