FIX: Crash When UserControl Accesses Members of ParentControls

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new Visual Basic 5.0 ActiveX Control project.
2. Add a Label control to the UserControl.
3. Add the following code to the UserControl:

         Public Property Let TheLoop(bLoop As Boolean)
            Dim oObject As Object
            Dim sName As String
            For Each oObject In ParentControls
                sName = oObject.Name
                Debug.Print sName
            Next
         End Property
   
         Public Property Get TheLoop() As Boolean
   
         End Property
   
   						

4. Select File...Add Project from the menu bar and add a Standard EXE project.
5. Place an instance of UserControl1 (UserControl11) on Form1.
6. Place three or four other controls on Form1.
7. Select UserControl11 and change the TheLoop property.
8. Repeat step 7. Note that an invalid page fault in Visual Basic results.