>I changed it to this:
>

Private lcName
lcName = sys(2015)
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

Grady, if you look in my messages that I have sent you, you will find the solution for the circle.