Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod("getResources")
r.Target = r.RunMethod("getDisplayMetrics")
Log(r.GetField("xdpi"))
Log(r.GetField("ydpi"))
Log(GetDeviceLayoutValues.Width/r.GetField("xdpi"))
Log(GetDeviceLayoutValues.Height/r.GetField("ydpi"))