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