Grady,

You may need to set the ZOrder to keep it on top of your other image.

FWIW, I put this code in the click event of a form and it seems to do exactly what you are looking for.

lcName = sys(2015)
this.AddObject( lcName, "shape" )

with evaluate( "this." + lcName )
   .Top = mrow( thisform.Caption, 3 )
   .Left = mcol( thisform.Caption, 3 )
   .Visible = .t.
endwith

>No luck so far. This my first attempt to build a class this way and use it. Here is the situation.
>
>I have a form. In the form is an image of a map. When a mouse click occurs on the map I want to place a shape on the map where the click occurs.
>
>I have the class defined in a prg which runs once on the startup of the app.
>
>Prg code
>
>

>
>Define Class marker As Shape OF _base
>	Height = 25
>	Width = 25
>	Curvature = 90
>	BackColor = 255
>	BackStyle = 0
>Enddefine
>
>

>
>I put two lines of code under the click
>
>click code
>
>

>
>Thisform.AddObject("marker", "Marker")
>Thisform.marker.Visible = .t.
>
>

>
>What have I done wrong?
>
>Thanks for your patience