Checkboxarray: uitwerking en code

We maken een array van checkboxen en een array van knoppen. We maken er vier, en in elke reeks zijn de elementen dus genummerd van 0 to 3. Op die manier hebben we ook onmiddellijk een link tussen checkbox en knop: de indexen komen overeen.
Als er op een checkbox geklikt wordt, wijzigt de waarde. Het is dan dat we een knop kunnen aan- of uitzetten met de volgende code:
cmdKnop(Index).Enabled = optOptie(Index).Value
Als er op de knop wordt gedrukt, wordt de overeenkomstige checkbox uitgezet.
chkOptie(Index).Value = False
Om het project te laten werken moeten we echter eerst alle checkboxen aanzetten.
Dim t As Integer
For t = 0 To 3
optOptie(t).Value = 1
Next t