I am trying to get shapes to refresh/redraw from a table of coordinates xx and yy and I am not having much luck. Would you please help me out?

* Right click code

Parameters nXCoord,nYCoord

Count To Locations

If Locations < 1
	Return
Endif

For SpotToRefresh = 1 To Locations
	Goto SpotToRefresh
	nXCoord = XX
	nYCoord = YY
	If nButton = 1
		If Sys(1270)=m.this
			Thisform.AddObject( Sys(2015), "shape")
			With Thisform.Controls[thisform.ControlCount] && the last member
				.Move(nXCoord,nYCoord,25,25)
				.Curvature = 99
				.BackColor = 255
				.BackStyle = 1
				.BorderWidth = 2
				.BorderColor = 65535
				.SpecialEffect = 0
				.ToolTipText = "Crime scene"
				.Visible = .T.
			Endwith
		Endif
	Endif
Next SpotToRefresh