ms access - VBA Code Stops Working -

The following code is said every time that the form has been opened. It works great till the 5th opening and then tries to remove any one from the control. Does anyone know why this is?

  for each CB in the form (frmName). Control type = acCheckBox then if left (cb.Name, 3) = "clr" then DeleteControl frmName, Cb.Name termination if other CB Control Type = Axlebel then delete the Left (cb name, 3) = "CLR" control control FRMName, cb.Name end then if the end is  

When you delete an item from a collection in Access, the next item moves to the place of those objects. Thus when it comes to removing items from a collection, you should start at the end of the collection and go back to the last time.

Then

  replace for each CB (frmName) form.  

  for counter = form (frmName) Controlled Calculation - 1 to 0 step -1 set CB = form (frmName). Control. ITEM (COUNTER)  

However my next question is your overall purpose?

It is unusual to manipulate the controls in this design scene