Thisform.AddObject( Sys(2015), "shape") With Thisform.Controls[thisform.ControlCount] && the last member .Move(XX,YY,7,7) .Curvature = 99 .BackColor = 255 .BackStyle = 1 .BorderWidth = 0 .BorderColor = 65535 .SpecialEffect = 0 .ToolTipText = "Selected location" .Visible = .T. EndwithIs there programatic way to remove the shape without leaving a trace that the mark was there, or is this just my Thanks Giving turkey?