PRB: Controls Collection vs. Standard Collection in For Each

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new Standard EXE project in Visual Basic.
2. Copy the following code to the code module for Form1.

         Private Sub Form_Load()
            Dim x As Control
            Dim y As Boolean
   
            Controls.Add "vb.commandbutton", "a"
            Controls.Add "vb.commandbutton", "b"
            Controls.Add "vb.commandbutton", "c"
            Controls.Add "vb.commandbutton", "d"
            Controls.Add "vb.commandbutton", "e"
            Controls.Add "vb.commandbutton", "f"
            For Each x In Controls
               Select Case x.Name
                  Case "d", "e", "f"
                  Controls.Remove x
               End Select
            Debug.Print x.Name
            Next
            End Sub
   						

3. Run the project. Runtime error 735 occurs.
4. Replace the code from step 2 with the following code.
   
   NOTE: This code uses two separate iterations to accomplish the task. Because you can remove Control Collection elements by name, another alternative is to remove the controls without using a loop.

         Private Sub Form_Load()
            Dim x As Control
            Dim y As Boolean
   
            Controls.Add "vb.commandbutton", "a"
            Controls.Add "vb.commandbutton", "b"
            Controls.Add "vb.commandbutton", "c"
            Controls.Add "vb.commandbutton", "d"
            Controls.Add "vb.commandbutton", "e"
            Controls.Add "vb.commandbutton", "f"
            For Each x In Controls
               Select Case x.Name
                  Case "d", "e", "f"
                  Controls.Remove x
               End Select
            Next
            For Each x In Controls
               Debug.Print x.Name
            Next
   
         End Sub
   						

5. Run the project.