>Local lnButtonWidth1,ln,laButton(1,2),lnButtonWidth2,l2ndRow,ln1,ln2 >With This > .Width=.Parent.Width > Store .Width/.ButtonCount To lnButtonWidth1,lnButtonWidth2 > l2ndRow=lnButtonWidth1<DC_MINBUTTONWIDTH > Dimension laButton(.ButtonCount,2),laButton2(.ButtonCount,2) > Store 0 to ln1,ln2 > Store "999" To laButton,laButton2 > > For ln=1 To .ButtonCount > If l2ndRow.And.Right(.Buttons(ln).Tag,1)="2" > ln2=ln2+1 > laButton2(ln2,1)=.Buttons(ln) > laButton2(ln2,2)=.Buttons(ln).Tag > Else > ln1=ln1+1 > laButton(ln1,1)=.Buttons(ln,1) > laButton(ln1,2)=.Buttons(ln,1).Tag > EndIf > EndFor > =ASort(laButton,2) > =ASort(laButton2,2) > lnButtonWidth1=.Width/ln1 > lnButtonWidth2=.Width/Max(ln2,1) > > For ln=1 To ln1-1 >******************************************************* >* Ths following line of code results in two different values being assigned >* laButton(ln,1).width becomes 180 ????? >* lnBB2 becomes 25.7143 >******************************************************* > > Store lnButtonWidth1 To laButton(ln,1).Width,lnBB2 > >******************************************************** > > laButton(ln,1).Left=IIf(ln=1,1,laButton(ln-1,1).Left+laButton(ln-1,1).Width) > EndFor >EndWith >