VBA: Connector style in SmartArt

I'm trying to write vba-code creating Horizontal Hierarchy Smart object.

1. I use the following code to create SmartArt shape:

Set oSALayout = Application.SmartArtLayouts(96)Set 
oShp = Sheets(1).Shapes.AddSmartArt(oSALayout)

Than I create one root node (Node1) and two child nodes (Node1_1 and Node1_2). I change colors of child nodes:

Node1_1.Shapes(1).Fill.ForeColor.RGB = Color1
Node1_2.Shapes(1).Fill.ForeColor.RGB = Color2

Automatically two connectors appear between root and child nodes. I need to change colors of this connectors. Each connector should have the same color as corresponding child node. How can I do this?

Thanks in advance