Macro GetObjectRectangle dosn't work

I have a problem by a macro for Photopaint

With CorelScript

   .ObjectEdit 3, False
    .ObjectRotate 0, 0, 5, False, False          'It works
   .EndObject                                                  

    .GetObjectRectangle 3, x1, y1, x2, y2     'It dosn't work. The coordinates are blank.
End With

What can I do? What I'm doing wrong?