Dim ooText As Control
For Each ooText In Me.Controls If TypeOf ooText Is TextBox Then ooText.Text = "" ElseIf TypeOf ooText Is ComboBox Then ooText.Text = "" ElseIf TypeOf ooText Is CheckBox Then DirectCast(ooText, CheckBox).Checked = False End If Next |