octrl=.NULL. Release octrl>I got it :)
>Scan for ordine > 0 > oform.addObject('_l'+Transform(recno()),'Mylabel') > oCtrl = Evaluate("oform."+'_l'+Transform(Recno())) > oCtrl = Evaluate("oform."+'_l'+Transform(Recno())) > oCtrl.autosize = .t. > oCtrl.caption = Alltrim(wObjShow.descri) > octrl.left = 10 > octrl.top = lnTop + 3 > octrl.visible = .t. > lntop = octrl.top + octrl.height > > oform.addObject('_'+Transform(Recno()), Iif(Empty(wObjShow.codice),Alltrim(wObjShow.ctrl),'p'+Alltrim(wObjShow.ctrl))) > oCtrl = Evaluate("oform."+'_'+Transform(Recno())) > oCtrl.width = 100 > octrl.left = 10 > octrl.top = lnTop > octrl.visible = .t. > lntop = octrl.top + octrl.height >*------------- >* adding this line I haven't errors anymore > Release octrl >*------------- >EndScan >>
>>CLEAR PROGRAM >>CLEAR CLASS ... >>>>
>>>lcString = myDefineCode >>>=strtofile(lcstring,MyFlyProc,0) >>>lcMemSet = set('procedures') >>>compile MyFlyProc >>>set procedure to MyFlyProc additive >>> >>>* excute my code which refers to defined object >>>release procedure MyflyProc >>>set procedure to (lcMemSet) >>>* >>>erase MyflyProc >>> >>>>>>