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.


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