y=(100%y/800)
x=(100%x/1280)
If x<y Then y=x Else x=y
te1=(TeDi-1)*y
te2=(TeDi+2.5)*y
te3=(TeDi+3.5)*y
For i=0 To 30
H=90*y
W=55*x
Select i
Case 0,1,2,3,4,5,6,7,8,9,10, 11
T=140*y
L=(x*220)+(i*(W+(10*x)))
Case 12,13,14,15,16,17,18,19,20,21
T=140*y+(H+(15*y))
L=(x*220)+((i-12)*(W+(10*x)))
Case 22,23,24,25,26,27,28,29, 30
T=140*y+((H+(15*y))*2)
L=(x*220)+((i-22)*(W+(10*x)))
End Select
Labe(i).Top=T
Labe(i).Left=L
Labe(i).Width=W
Labe(i).Height=H
Labe(i).textsize=te1
Next