ImageVObject RotatedRectangleF

I'm trying to add a new ImageVObject at the same location and orientation (angle) as an existing one. Please see step1-3.png attached for an illustration of what I'm trying to achieve. Step1.png shows the existing ImageVObject, Step2.png shows the new ImageVObject added at the same location, and Step3.png shows the final result after the existing ImageVObject was removed. My code to position the new ImageVObject is as shown below however the final position is not correct (i.e. the new ImageVObject appears either too high or low). Things appear to work out out if the angle is 0 so I don't think what I have takes this into account?

Dim voWidth As Single = voNew.Width
Dim voHeight As Single = voNew.Height
Dim oldRect As Aurigma.GraphicsMill.AjaxControls.VectorObjects.Math.RotatedRectangleF = voOld.Rectangle

Dim x As Single
Dim y As Single
If voWidth <= oldRect.Width Then
    x = oldRect.Location.X + ((oldRect.Width - voWidth) / 2)
Else
    x = oldRect.Location.X - ((voWidth - oldRect.Width) / 2)
End If
If voHeight <= oldRect.Height Then
    y = oldRect.Location.Y + ((oldRect.Height - voHeight) / 2)
Else
    y = oldRect.Location.Y - ((voHeight - oldRect.Height) / 2)
End If

voNew.Transform.Angle = vo.Rectangle.Angle
voNew.Location = New Aurigma.GraphicsMill.AjaxControls.VectorObjects.Math.PointF(x, y)

lyr.VObjects.Remove(voOld)
lyr.VObjects.Add(voNew)

(PS I tried setting the CentreX and CentreY properties of the new ImageVObject but this didn't appear to work.)

Edited by user Tuesday, February 5, 2013 3:16:50 AM(UTC)  | Reason: Not specified

NormanL attached the following image(s):

That worked - thanks.