Dim lv As LayoutValues
lv = GetDeviceLayoutValues
Log( Sqrt(Power(lv.Height / lv.Scale / 160, 2) + Power(lv.Width / lv.Scale / 160, 2)))
Log(Sqrt(Power(800 /160, 2) + Power(480 / 160, 2)))
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod("getResources")
r.Target = r.RunMethod("getDisplayMetrics")
Dim xdpi As Double = r.GetField("xdpi")
Dim ydpi As Double = r.GetField("ydpi")
Dim lv As LayoutValues
lv = GetDeviceLayoutValues
Log( Sqrt(Power(lv.Width / xdpi, 2) + Power(lv.Height / ydpi, 2)))