PRB: "For Each" Behavior on Dynamically Changing Control Array

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add a Command button (Command1) to your form.
3. Set the Index property of Command1 to 0 (zero). This will create a control array with one element. You then refer to your control as Command1(0).
4. Add the following code to the Form_Click event of Form1.

         Sub Form_Click()
            On Error GoTo ErrorHandler
            Load Command1(1)
            Load Command1(2)
            Load Command1(3)
   
            For Each Elt In Command1
               Print "This is Command1("; Elt.Index; ")"
               If Elt.Index = 0 Then
                  Unload Command1(2)
                  Load Command1(4)
               End If
   
         SkipToHereOnError:
            Next
            Exit Sub
   
         ErrorHandler:
            Print Error$
            Resume SkipToHereOnError
         End Sub
   						

5. Start the program by choosing Start from the Run (or press the F5 key).
6. Click Form1 to run the code in the Click event.

The following will be printed on Form1: NOTE: Attempting to access Command1(2) generates an error because it is unloaded at the first iteration of the loop, and that Command1(4) is not printed.