Setting a SelectionColor

Has anyone ever had any luck changing the selection color forselected objects? I've got a macro that selects several things, andI'd like them to be different colors. Here's a sample of what I'mworking on. In an assembly, select any entity (face, edge, etc) ofany two different components and run the macro. The entirecomponents will be selected. I'm wanting the two components to beselected with different colors, but they both get selected with thesame color.

Dim swApp As SldWorks.SldWorks
Dim swSelMgr As SldWorks.SelectionMgr
Dim swDoc As SldWorks.ModelDoc2
Dim Comp1 As SldWorks.Component2
Dim Comp2 As SldWorks.Component2
Dim mySelData As SldWorks.SelectData

Sub main()

Set swApp = Application.SldWorks
Set swDoc = swApp.ActiveDoc
Set swSelMgr = swDoc.SelectionManager

Set Comp1 = swSelMgr.GetSelectedObjectsComponent3(1, -1)
Set Comp2 = swSelMgr.GetSelectedObjectsComponent3(2, -1)

swDoc.ClearSelection2 True

swSelMgr.ClearSelectionColors
swSelMgr.SelectionColor(1) = swSystemColorsSelectedItem1
swSelMgr.SelectionColor(2) = swSystemColorsSelectedItem2

Set mySelData = swSelMgr.CreateSelectData
mySelData.Mark = 1

Comp1.Select4 True, mySelData, False

mySelData.Mark = 2

Comp2.Select4 True, mySelData, False
swSelMgr.ClearSelectionColors
swSelMgr.SelectionColor(1) = swSystemColorsSelectedItem1
swSelMgr.SelectionColor(2) = swSystemColorsSelectedItem2

End SubSolidworksApi macros