PB VBA Send Symbol to Back of the Stack

Is there a method to send Symbols to the back of the stack in Processbook, using VBA?

Currently I have only been able to select one symbol and use Arrange -> Send to Back.

 With  Application.ActiveDisplay.Symbols
         For  i = 1 To .Count 
            If .Item(i).Type = 2 Then
               .item(i).[send to back of stack here]

             End If 
         Next    i
End With

I believe this may feasible with Layers, but I ran in to a wall with:

Set oLayer1 = Application.ActiveDisplay.Layers("Rectangles")

...

...

...

    With Application.ActiveDisplay.Symbols
        For i = 1 To .Count
            If .Item(i).Type = 2 Then
               oLayer1.LayerSymbols.Add (.Item(i))   'Err: Object doesn't support this method
            Else
               oLayer2.LayerSymbols.Add (.Item(i))
            End If
        Next i
    End With