>>* Right click code >> >>Parameters nXCoord,nYCoord >> local lnX, lnY, loShapeObject >>Count To Locations >> >>If Locations < 1 >> Return >>Endif >> >>For SpotToRefresh = 1 To Locations >> Goto SpotToRefresh >> lnX = XX >> lnY = YY >> If nButton = 1 >> If Sys(1270)=m.this thisform.nLastShapeNumber = thisform.nLastShapeNumber + 1 >> Thisform.AddObject( "shp" + transform(thisform.nLastShapeNumber), "shape") loShapeObject = evaluate("thisform.shp" + transform(thisform.nLastShapeNumber)) >> With loShapeObject >> .Move(lnX,lnY,25,25) >> .Curvature = 99 >> .BackColor = 255 >> .BackStyle = 1 >> .BorderWidth = 2 >> .BorderColor = 65535 >> .SpecialEffect = 0 >> .ToolTipText = "Crime scene" >> .Visible = .T. >> Endwith >> Endif >> Endif >>Next SpotToRefresh>>