>The code works fine. Now I am trying to change the color and shape of the output. I have spent enough time looking at VFP help (which as usual is no help at all) and I have tried many ways to accomplish it.
>
>Here is one failed attempt of many.
>
>

>
>If nButton = 1
>	If Sys(1270)=m.this
>		Thisform.AddObject( Sys(2015), "shape",  Height = 25 , Width = 25, Curvature = 90, BackColor = 255, BackStyle = 0 )
>		With Thisform.Controls[thisform.ControlCount] && the last member
>					.Move(nXCoord,nYCoord)
>			.Visible = .T.
>		Endwith
>	Endif
>Endif
>
>

*The bad sketch of VFP:  
*SYS(1270) it can return. F. (correct choice is. NULL.)   
*EVL () it doesn't support the objects

If nButton = 1 AND VARTYPE(Sys(1270))=='O' AND 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	&& TRANSPARENT !!!
		.BackStyle = 0
		.Visible = .T.
	Endwith
Endif