hi nadya,

here's the code

IF SEEK(rcode)
SCAN WHILE jo_route2->routecode = rcode
objname = ('T' + jo_route2->locpost)
Thisform.Cnt1.AddObject(objname,"Shape")

* i want to access the created object in this section

This.Left = jo_route2->posx
This.Top = jo_route2->posy
This.Visible = .T.
This.Curvature = 10
This.FillColor = RGB(255,0,0)
This.FillStyle = 0
This.Height = 9
This.Width = 8
This.T001.ToolTipText = ALLT(STR(.T001.Left)) + ',' + ALLT(STR(.T001.Top))
ENDSCAN
ENDIF