dim i as long
dim int1 as integer
dim int2 as integer
 
int1 = 1
int2 = 4
 
do while not i > (numberofentries/4)
for lng = int1 to int2
if lng = int1 then
ALabel(i).Width = 3000
ALabel(i).top = 1000 * i
else
ALabel(i).left = ALabel(i-1).left + ALabel(i-1).Width +200
ALabel(i).Width = 3000
ALabel(i).top = 1000 * i
end if
next lng
int1 = int1 +4
int2 = int2 +4
loop