I am trying to set up some constraints in a sketch using VBA.  I am able to select the first point (Point5) and then i try to select a silhouette edge and make the two selections coincident.  The edge is on a cylinder that is centered on the front and right planes and is extruded up from the top plane.  The sketch I am constraining is on the right plane.  The edge I am selecting is in the -Z direction.  The part is symmetric so the edge is the same distance from the origin in both directions.  I can get it to select the edge in the +z direction (HW / 2), but it isn't working in the -z direction (-(HW / 2)). HW is the diameter of the cylinder.

Does anyone have any idea why it isn't working in the -z direction.  Thanks for your help

boolstatus = Part.Extension.SelectByID2("Point5", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)

boolstatus = Part.Extension.SelectByID2("", "SILHOUETTE", 0, HH * 0.2, -(HW / 2), True, 0, Nothing, 0)

Part.SketchAddConstraints "sgCOINCIDENT"

John