Dynamic ActiveX controls memory leak (URGENT)

[LintDiggy]

My vb6 application has a nasty memory leak that I can't trace for the life of me. I have an ActiveX object that I've created called an Operation. The control has the following components :

Picturebox (x3)
Label (x4)
TextBox (x2)
ListBox
ScrollBar
CommonDialog
ImageList
Timer

In code, the control has the following member Objects:

m_AllVersions As Collection
m_ModulePaths As Collection
m_Parameters As Collection
m_Measurements As Collection

In my UserControl_Initialize routine, I have a bunch of lines that set flags, configure the various texboxes and things, and I set each Collection to a New one. Nothing very fancy. I put a Debug.Print statement in to let me know that the Object has been created.

verbatem, here is my terminate method:

Private Sub UserControl_Terminate()
 
    'remove references to objects
    Set m_AllVersions = Nothing
    Set m_ModulePaths = Nothing
    Set m_Parameters = Nothing
    Set m_Measurements = Nothing
 
    Debug.Print vbTab & "OPERATION DESTROYED!!"
 
End Sub
 

These Operation Objects are created dynamically when needed, so I have a method to create and destroy them from within another ActiveX control called a Module

Friend Function CreateOperation() As Operation
 
    Dim Opn As Operation
    Static ControlIndex As Integer
 
    Set Opn = Controls.Add("Project1.Operation", "Module" & m_ControlIndex _
        & "Operation" & ControlIndex)
 
    Opn.Move 0, 0, Extender.Width, Extender.Height
    Opn.ControlIndex = ControlIndex
 
    ControlIndex = ControlIndex + 1
    Set CreateOperation = Opn
 
End Function
 
Friend Sub DestroyOperation(ByRef Opn As Operation)
 
    Dim Index As Integer
 
    'explicitly remove reference to Operation in
    '   all Parameter objects
    For Index = 0 To Opn.ParamCount - 1
 
        Opn.RemoveParameter 0
 
    Next
 
    'explicitly remove reference to Operation in
    '   all Measurement Objects
    For Index = 0 To Opn.MeasCount - 1
 
        Opn.RemoveMeasurement 0
 
    Next
 
    'Remove Operation object from Controls Collection
    Controls.Remove "Module" & m_ControlIndex & "Operation" & Opn.ControlIndex
    Set Opn = Nothing
 
End Sub
 
 

Pay no attention to the RemoveParameter and RemoveMeasurement lines, Opn.ParamCount and Opn.MeasCount are 0 for testing.

Okay, so to test that everything is working, I just create and destroy the Operation Objects in a loop:

Dim i As Integer
Dim Opn As Operation
 
For i = 1 To 1000
 
     Debug.Print "CREATING OPERATION " & i
     Set Opn = Modl.CreateOperation
     Modl.DestroyOperation Opn
     Set Opn = Nothing
 
Next
 

When I execute this, I get messages in the Immediate window letting me know that the objects are being created and destroyed, but after about 342 times through the loop, I get an Error - 7 Out of Memory.

Any ideas? Is there something unique about ActiveX objects that prevents them from being returned to memory properly?

[LintDiggy]

I don't know if this will help trace the problem, but it looks like something is going on inside the VB6 Developer environment.

As I said in the previous post, when I simply create and destroy 1000 of the Operation Objects, the debugger crashes and gives me the Out of Memory error.

However, when I open a project that has the ActiveX project as a reference, it is able to create all 1000 Operation Objects and destroy them without complaining.

Is there something I'm missing in the developer environment?