Originariamente inviato da mentos
Togliendo = Me.cbAll
e mettendo

Me.Controls("cb" & i) = 1 se vuoi fare un seleziona tutti
Me.Controls("cb" & i) = 0 se vuoi fare un deseleziona tutti


Grazie mentos.
L'ho modificata così

codice:
Private Sub cdAll_Click()
Dim i As Integer
For i = 1 To 3
   Me.Controls("cb" & i) = -1
Next i
End Sub
e mi seleziona tutte le checkbox ma come faccio a fare in modo che una volta selezioni e una volta deselezioni tutto? Grazie ancora.