... loObj = EVALUATE("thisform."+obj_name) WITH loObj .Top = (a*19) .Visible = .T. ... ENDWITH>Hi All,
>FOR a=1 TO mn_tot_periods > obj_name='period'+ALLTRIM(STR(a)) > THISFORM.ADDOBJECT(obj_name,'day_act_shape') > > clunky_macro1 = "thisform."+obj_name+".top" > &clunky_macro1 = (a*19) > > clunky_macro2 = "thisform."+obj_name+".visible" > &clunky_macro2 = .T. >ENDFOR >>