* In the CLICK method of a form * XX and YY are the coordiates of the mouse position 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,7,7) .Curvature = 99 .BackColor = 255 .BackStyle = 1 .BorderWidth = 0 .BorderColor = 65535 .SpecialEffect = 0 .ToolTipText = "Crime location" .Visible = .T. Endwith ENDCASE Do Form Details