What exactly is not working? From the first glance the code appeared to be fine. Did you try with some temp predefined coordinates to make sure it works?

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