I changed it to this:

Private lcName
lcName = sys(2015)
this.parent.addobject( lcName, "shape" )

with evaluate( "this.parent." + lcName )
   .Top = mrow( this.parent.Caption, 3 )
   .Left = mcol( this.parent.Caption, 3 )
   .Visible = .t.
endwith

Oddly it crashes on the form caption, saying "the window is not defined"