haaaaa... desisto disso!!!
Sub LimpaChecks(frm As Form)
Dim ctrl As Control
For Each ctrl In frm.Controls
If TypeOf ctrl Is CheckBox Then
ctrl.Value = 0
End If
Next
End Sub
e to chamando num botao ( LimpaChecks )... e nao funciona... vou limpar esse trem é um por um mesmo....
valew galera!!!!