*thisform.&x1..width=10 store 10 to ('thisform.' + x1 + '.width')>this works:
x1="oLine"+TRANSFORM(m.i) > *thisform.aScale[m.I].AddObject("Line") &&& = CREATEOBJECT("Line") > thisform.AddObject(x1,"line") > thisform.&x1..width=10 >>
thisform.aScale[m.I].AddObject("Line") &&& = CREATEOBJECT("Line")>>
>>>>>LOCAL lnWidth,lnNumTicks,lnStratTick,lnTickLen,I >>>>>lnWidth = thisform.grd1.Width >>>>>lnNumTicks = 17 >>>>>lnStratTick = 7 >>>>>lnTickLen = lnWidth/lnNumTicks >>>>>DIMENSION thisform.aScale[lnNumTicks+1] >>>>>DIMENSION thisform.aTicksLabel[lnNumTicks+1] >>>>>FOR I = 1 TO lnNumTicks+1 >>>>> thisform.aScale[m.I] = CREATEOBJECT("Line") >>>>> thisform.aScale[m.I].top = 262 >>>>> thisform.aScale[m.I].height = 12 >>>>> thisform.aScale[m.I].width = 1 >>>>> thisform.aScale[m.I].left = 3+(m.I-1)*lnTickLen >>>>> thisform.aScale[m.I].visible= .t. >>>>> >>>>> thisform.aTicksLabel[m.I] = CREATEOBJECT("Label") >>>>> thisform.aTicksLabel[m.I].caption = TRANSFORM(6+m.i) >>>>> thisform.aTicksLabel[m.I].height = 15 >>>>> thisform.aTicksLabel[m.I].fontname = 'Arial' >>>>> thisform.aTicksLabel[m.I].fontsize = 8 >>>>> thisform.aTicksLabel[m.I].fontitalic= .t. >>>>> DO CASE >>>>> CASE m.I = lnStratTick >>>>> thisform.aTicksLabel[m.I].caption = TRANSFORM(6+m.i)+" am" >>>>> >>>>> CASE m.I = 12-(lnStratTick+2) >>>>> thisform.aTicksLabel[m.I].caption = TRANSFORM(6+m.i)+" Noon" >>>>> >>>>> CASE m.I = 12-(lnStratTick+2)+ 1 >>>>> thisform.aTicksLabel[m.I].caption = TRANSFORM(6+m.i)+" pm" >>>>> >>>>> CASE m.I = lnNumTicks + 1 >>>>> thisform.aTicksLabel[m.I].caption = TRANSFORM(6+m.i)+" pm" >>>>> >>>>> OTHERWISE >>>>> >>>>> ENDCASE >>>>> thisform.aTicksLabel[m.I].left = 3+(m.I-1)*lnTickLen >>>>> thisform.aTicksLabel[m.I].visible = .t. >>>>> >>>>>ENDFOR >>>>>thisform.AddObject (oScaleLine,"LIne") >>>>>WITH thisform.oScaleLine >>>>> .top = 276 >>>>> .height = 1 >>>>> .width = lnWidth >>>>> .left = 3 >>>>> .visible= .t. >>>>>ENDWITH >>>>>>>>>>