Place these where you need them.
Left
Dim obj As xpQuadObject
dim xWidth as string
scene.GetObjectByName("Quad1", obj)
xWidth = obj.Width
obj.PivotX = xWidth /2 * -1
Right
Dim obj As xpQuadObject
dim xWidth as string
scene.GetObjectByName("Quad1", obj)
xWidth = obj.Width
obj.PivotX = xWidth /2
------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom
------------------------------