Memory leak in my ocx

I have written an ocx made up of multiple shapes.  Based on the function I want (at design time) different shapes are visible and others are not.

During run time I move these shapes to different locations.  Right now I have a program that uses a timer to cycle through the range of movements possible for three of these controls.  The problem I am having is that if I just let it run, it eventually starts a memory leak that continues until it crashes.  With the timer set at 100ms the memory leak starts between 3600 and 3700 loops through the timer code (Shown below). By the time it reaches 4500 loops it's very close to crash time.    I have been trying to use Heap Walker to try and find the leak but I have been unable to so far.  I have been struggling with this for over a week and I'm now at a loss as to what to try.

I am using VB 6.0 SP3 on a Windows 98 machine.  Celeron 366 processor with 160 MB Ram.  If the following code does not suggest anything, I have the entire project zipped up (78K) and could email it to anyone interested.




Dim Test As SystemItems           '   SystemItems is the ocx
   
If XYZMoveEnb = True Then
    TestCount = TestCount + 1
    Text1.Text = Str(TestCount)
    TestIndex = 0
   
    If XYZMove = True Then
        Set Test = SystemItems(TestIndex)
        Test.XCoord = Test.XCoord + 200
        If Test.XCoord > Test.Width - Test.CraneWidth Then
            Test.XCoord = Test.XCoord - 200
            XYZMove = False
        End If
        Set Test = Nothing
       
        Set Test = SystemItems(TestIndex)
        Test.YCoord = Test.YCoord + 200
        If Test.YCoord > Test.Height - Test.CraneHeight Then
            Test.YCoord = Test.YCoord - 200
            XYZMove = False
        End If
        Set Test = Nothing
    Else
        Set Test = SystemItems(TestIndex)
        Test.XCoord = Test.XCoord - 200
        If Test.XCoord < 0 Then
            Test.XCoord = Test.XCoord + 200
            XYZMove = True
        End If
        Set Test = Nothing
           
        Set Test = SystemItems(TestIndex)
        Test.YCoord = Test.YCoord - 200
        If Test.YCoord < 0 Then
            Test.YCoord = Test.YCoord + 200
            XYZMove = True
        End If
        Set Test = Nothing
    End If
End If

If ZMoveEnb = True Then
    TestIndex = 1
    Set Test = SystemItems(TestIndex)
    If ZMove = True Then
        Test.ZHeight = Test.ZHeight - 50
        Test.ZWidth = Test.ZWidth - 50
        If Test.ZWidth < Test.Width * 0.3 Then
            ZMove = False
        End If
    End If
   
    If ZMove = False Then
        Test.ZHeight = Test.ZHeight + 50
        Test.ZWidth = Test.ZWidth + 50
        If Test.ZWidth >= Test.Width Then
            ZMove = True
        End If
    End If
    Set Test = Nothing
End If

If YShuttleEnb = True Then
    TestIndex = 2
    Set Test = SystemItems(TestIndex)
    If YShuttle = True Then
        Test.ShuttleTop = Test.ShuttleTop + 100
        If Test.ShuttleTop > Test.Height - Test.ShuttleLength Then
            Test.ShuttleTop = Test.ShuttleTop - 100
            YShuttle = False
        End If
    End If
   
    If YShuttle = False Then
        Test.ShuttleTop = Test.ShuttleTop - 100
            If Test.ShuttleTop < 0 Then
                Test.ShuttleTop = Test.ShuttleTop + 100
                YShuttle = True
            End If
    End If
    Set Test = Nothing
End If

Any suggestions would be appreciated.

Thanks,

Frank