Buen dia señores:
Paso a consultar lo siguiente:
Tengo esta rutina:
Sub sub_limpiar_campos(ByVal c1 As Control)
For Each c As Control In c1.Controls
If TypeOf c Is TextBox Then
c.Text = "" ' eliminar el texto
Else
sub_limpiar_campos(c)
End If
If TypeOf c Is ComboBox Then
c.Text = "" ' eliminar el texto
Else
sub_limpiar_campos(c)
End If
If TypeOf c Is CheckBox Then
c.Text = "" ' eliminar el texto
Else
sub_limpiar_campos(c)
End If
If TypeOf c Is DateTimePicker Then
c.Text = Date.Today ' eliminar el texto
Else
sub_limpiar_campos(c)
End If
Next
End Sub
que me funciona muy bien, pero lo que deseo que me ayuden es como hago para que mis Checkbox tambien queden vacios (checked = false)
agradecere su ayuda de antemano.