Dim LayoutVals As LayoutValues
Dim stdVariantX, stdVariantY As Int
Dim scaleX, scaleY As Double
LayoutVals = GetDeviceLayoutValues
stdVariantX = 1280
stdVariantY = 600
scaleX = LayoutVals.Width / stdVariantX
scaleY = LayoutVals.Height / stdVariantY
' ...
' Panel0 ersteckt sich ueber den gesamten Bildschirm
Panel0.AddView(lblViertel, 0, 0, (1280 / 4) * scaleX, (600 / 4) * scaleY)
' Ein grafisches Element, das in der und fuer die Standardauflösung erstellt wurde (z.B. 100x200px):
Panel0.AddView(bild, 0, 0, 100 * scaleX, 200 * scaleY)