totqm4.SetLayout(14dip,2075dip,200dip,35dip)
somqmeter4.SetLayout(1075dip,2075dip,60dip,35dip)
vRftot4.SetLayout(780dip,2075dip,60dip,35dip)
vRgtot4.SetLayout(855dip,2075dip,60dip,35dip)
Laltext7.SetLayout(720dip,2075dip,60dip,35dip)
Laltext8.SetLayout(900dip,2075dip,60dip,35dip)
Label12.SetLayout(1100dip,2075dip,60dip,35dip)
Label13.SetLayout(1180dip,2075dip,60dip,35dip)
Dim i As Int
Dim b As Int : b=1244dip
For i = 12 To 17
'Rab(i).SetLayout(10dip,b,72dip,35dip)
Ra(i).SetLayout(55dip,b,130dip,35dip)
Rb(i).SetLayout(190dip,b,110dip,35dip)
Rc(i).SetLayout(307dip,b,110dip,35dip)
Rd(i).SetLayout(423dip,b,110dip,35dip)
Re(i).SetLayout(543dip,b,200dip,35dip)
Rf(i).SetLayout(750dip,b,110dip,35dip)
Rg(i).SetLayout(826dip,b,110dip,35dip)
Rh(i).SetLayout(910dip,b,110dip,35dip)
Rt(i).SetLayout(1042dip,b,50dip,35dip)
Rj(i).SetLayout(1080dip,b,110dip,35dip)
Rk(i).SetLayout(1140dip,b,110dip,35dip)
b= b + 55
Next