CorelDRAW Graphics Suite 12 :: VBA - Getting Name Of Objects Resulting From Break Apart

Im writing a script that will use the contour tool and then break the resulting contour apart, change the outline of the contoured object and then regroup both objects.

heres what I have so far:

Sub contour_outlines()        Dim OrigSelection As ShapeRange    Set OrigSelection = ActiveSelectionRange        Dim width1 As Double    Dim height1 As Double    OrigSelection.GetSize width1, height1        Dim minSize As Double    If width1 <= height1 Then minSize = width1    If width1 > height1 Then minSize = height1        Dim WhiteOutlineThickness As Double    Dim BlackOutlineThickness As Double        'WhiteOutlineThickness = minSize * 0.33    WhiteOutlineThickness = minSize * 0.5    'BlackOutlineThickness = minSize * 0.49    BlackOutlineThickness = minSize * 0.5            'apply contour    Dim eff1 As Effect    Set eff1 = OrigSelection(1).CreateContour(cdrContourOutside, WhiteOutlineThickness, 1)    ActiveSelection.Separate    ActiveLayer.Shapes(2).Outline.SetProperties BlackOutlineThickness, LineCaps:=cdrOutlineRoundLineCaps, LineJoin:=cdrOutlineRoundLineJoin    ActiveLayer.Shapes(2).AddToSelection    Dim s1 As Shape    Set s1 = ActiveSelection.GroupEnd Sub

So in this script Shapes(2) is the contoured object that I want to change the outline of.  Im guessing however it is only called shapes(2) because there was only 2 objects in the document when I wrote this script, (starting with one). In fact, if i start with a document with more than just one object, the outline change doesnt work.

I need to either leanr how to get a count of all objects in the document and assume the highest number will be the last created object and will thus be the one I need, or perhaps there is a way to instantiate the contuored shape when i call ActiveSelection.Seperate. something like

dim myContouredObject as shape

OriginalSelection + myContouredObject = ActiveSelection.Seperate

I'm sure the above wont work, just trying to be a bit more explicit about what im trying to do.

So, basically, how do i get the name of one or all of the objects resulting from a break apart?