BUG: Error 10 Attempting to ReDim or Erase an Array

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new Standard EXE project in Visual Basic. Form1 is created by default.
2. Place a CommandButton on Form1. Note that you will add code for the button in step 6.
3. Add a new Module (Module1) to the project.
4. In the Module1 code window, define the following user-defined type:

         Type MyType
           lTest as Long
         End Type
   
   						

5. Move to the Form1 code window. In the General Declarations define a dynamic array as follows:

         Dim MyArray() As MyType
   
   						

6. In the Form1 code window, select the (Command1) object, and enter the code for Command1_Click as follows:

         Private Sub Command1_Click()
            ReDim MyArray(5)
            Dim i As Long, k As Long
   
           For i = 0 To 5
              With MyArray(i)
                 .lTest = i
                 If i = 3 Then Exit For
              End With
           Next i
   
           Erase MyArray
         End Sub
   
   						

7. Make the project and then run the EXE. When the form opens, click Command1 to reproduce the error mentioned above.