>Hi Naomi, thanks for the response. When the code is run the error message I get is "Expression is not valid outside of WITH/ENDWITH. When this happens, the cursor is stuck at .curvature.

Looks like it doesn't like the with thisform.controls[thisform.controlcount]

Let's try slightly different approach. Create new property called nLastShapeNumber and set it to 0 in property sheet.

Then change your code to

>>* 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

>>

Also try this code not from the right click, but from some button's click. Once it's working, we'll try to move it to Right click.