Local Choice Choice = Messagebox( "Do you want to place a crime location on the map? ",4," Map coordinates ") Do Case Case Choice = 7 Return Case Choice = 6 NameOfShape = Sys(2015) Thisform.AddObject( NameOfShape, "shape") With Thisform.Controls[thisform.ControlCount] && the last member .Move(XX,YY,9,9) .Curvature = 99 .BackColor = 16711680 .BackStyle = 1 .BorderWidth = 1 .BorderColor = 65535 .SpecialEffect = 0 .ToolTipText = "Incident location" .Visible = .T. Endwith Endcase