Tom's Life Bits

   Sub Get_Screen_Resolution
      pScreenWidth=GetDeviceLayoutValues.Width
      pScreenHeight=GetDeviceLayoutValues.Height
      pScale=GetDeviceLayoutValues.Scale
      If pScale= 0.75 Then
        pDPI="120"
      End If
      If pScale= 1 Then
        pDPI="160"
      End If
      If pScale= 1.5 Then
        pDPI="240"
      End If
      If pScale=2 Then
        pDPI="320"
      End If
   End Sub