Vertical fork/join

[Donafani]

I have to create a vertical fork/join in a new diagram by using Vb6 automation interface...
I just can create it horizontally, this is my code example:

Dim Pack As EA.Package
Dim FJoin As DiagramObject
Dim JoinElem As Element
dim d as EA.Diagram
Set JoinElem = Pack.Elements.AddNew("", "Synchronization")
 JoinElem.Update

Set FJoin = d.DiagramObjects.AddNew("l=20;r=50;t=100;b=130", "")
  FJoin.ElementID = JoinElem.ElementID
  FJoin.Update

Can anyone help me to make this fork/join synchronization in vertical way???

[KP]

You will need to add:

JoinElem.Subtype = 1

Where Class is "Synchronization", use Subtype = 0 for horizontal, Subtype = 1 for vertical. This should have been documented: I have updated the help file for the next release; apologies for the omission.

HTH,

Neil