> 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. > Endwith >>