Dim btn_breite,btn_hoehe,xpos,ypos,abstand,fsize As Int
abstand = 12.0165%y
btn_breite = 65.6%x
btn_hoehe = 11%y
fsize = 2.486%y
xpos = (100%x / 2) - (btn_breite /2) 'X-Position auf Mitte
ypos = 10dip
btn00Startseite_Strom.setlayout(xpos,ypos,btn_breite,btn_hoehe)
btn00Startseite_Strom.TextSize = fsize
ypos = ypos + abstand
btn00Startseite_Gas.setlayout(xpos,ypos,btn_breite,btn_hoehe)
btn00Startseite_Gas.TextSize = fsize
ypos = ypos + abstand
btn00Startseite_Wasser.setlayout(xpos,ypos,btn_breite,btn_hoehe)
btn00Startseite_Wasser.TextSize = fsize
ypos = ypos + abstand
BTN00Startseite_Sonstige.setlayout(xpos,ypos,btn_breite,btn_hoehe)
BTN00Startseite_Sonstige.TextSize = fsize
ypos = ypos + abstand + 10dip
BTN00Startseite_Zaehlerverwaltung.setlayout(xpos+2dip,ypos,btn_breite-4dip,btn_hoehe-6dip)
BTN00Startseite_Zaehlerverwaltung.TextSize = fsize
ypos = ypos + abstand -3dip
BTN00Startseite_Objektverwaltung.setlayout(xpos+2dip,ypos,btn_breite-4dip,btn_hoehe-6dip)
BTN00Startseite_Objektverwaltung.TextSize = fsize
ypos = ypos + abstand -3dip
SPN00Startseite_Objektfilter.setlayout(xpos-2dip,ypos,btn_breite+4dip,btn_hoehe+5dip)
SPN00Startseite_Objektfilter.TextSize = fsize
BTN00Startseite_beenden.setlayout((100%x / 2) - 20.31%x,100%y-(btn_hoehe+5dip),40.62%x,btn_hoehe)
BTN00Startseite_beenden.TextSize = fsize