Dim RealInches, RealScale As Double
Dim BaseInches, BaseScale As Double
Dim Ratio As Double
RealInches = GetDeviceLayoutValues.ApproximateScreenSize
RealScale = GetDeviceLayoutValues.Scale
BaseInches = 4.33 'My test device screen size
BaseScale = 3 'My test device scale factor
Ratio = RealInches/BaseInches * Sqrt(RealScale/BaseScale)
Return Ratio