local ObjName, lcFullReference, loNewShape
>IF SEEK(rcode)
>	SCAN WHILE jo_route2.routecode = rcode && Don't use -> use . instead
>		objname = ('T' + jo_route2.locpost)
>		Thisform.Cnt1.AddObject(objname,"Shape")
                lcFullReference="thisform.cnt1."+ObjName
>               if type("lcFullReference")="O" && just to check, if it was added
                * this is actually not needed and I'm not sure, it will work... 
>                * i want to access the created object in this section
                loNewShape=evaluate(lcFullReference)
>               with loNewShape && name expression
>		 .Left = jo_route2.posx
>		 .Top  = jo_route2.posy
>		 .Visible = .T.
>		 .Curvature = 10 
		.FillColor = RGB(255,0,0) && 
>		.FillStyle = 0
>		.Height = 9
>		.Width = 8
>		.ToolTipText = ALLT(STR(.T001.Left)) + ',' + ALLT(STR(.T001.Top)) && ?????
       endif
>	ENDSCAN
>ENDIF