counter

[APOLLO]

i need help making a counter for this

chkBoxValues(0) = 0
chkBoxValues(1) = 0
chkBoxValues(2) = 0
chkBoxValues(3) = 0
chkBoxValues(4) = 0
chkBoxValues(5) = 0
chkBoxValues(6) = 0
chkBoxValues(7) = 0
chkBoxValues(8) = 0
chkBoxValues(9) = 0
chkBoxValues(10) = 0
chkBoxValues(11) = 0

[Lonely Wolf]

Please be more specific.

[APOLLO]

chkBoxValues 0-11 have to equal 0 is there a way to shorten the code

[Lonely Wolf]

private sub ...()
dim i as integer

for i = 0 to 11
chkBoxValues(i) = 0
next i
end sub