The following code in an image click method puts a shape on that image in a form.

Private lcName
lcName = sys(2015)
backcolor =  255
Backstyle = 0
thisform.addobject( lcName, "shape" )

with GETPEM(thisform,lcName)
   .Move(mcol(thisform.Name, 3),mrow( thisform.Name, 3 )) && the form name should to be unique
   .Visible = .t.
endwith

However, it's position on the screen is controlled by Mcol and Mrow and the form I have contains the image of a map that exceeds the screen size. Therefore, I am searching for a solution that uses coordinates. CurrentX and CurrentY might work. I'll try that.