For Each c As WinForm.Control In e.Form.Controls If TypeOf c Is WinForm.ComboBox Then Dim cmb As WinForm.ComboBox = c cmb.Text = "" ElseIf TypeOf c Is WinForm.TextBox Then Dim txt As WinForm.TextBox = c txt.Text = "" ElseIf TypeOf c Is WinForm.CheckedComboBox Then Dim chcmb As WinForm.CheckedComboBox = c chcmb.Text = "" End If Next