添加dll引用：System.Management.dll
Dim mc As New System.Management.ManagementClass("Win32_DesktopMonitor")
Dim moc = mc.GetInstances()
Dim r As Single
For Each mo As System.Management.ManagementObject In moc
' Output.Show( mo.Properties("Name").Value.ToString())
' Output.Show( mo.Properties("PixelsPerXLogicalInch").Value / 96)
If mo.Properties("Name").Value.ToString() = "默认监视器" Then
r = mo.Properties("PixelsPerXLogicalInch").Value / 96
Output.Show("字体比率：" & r)
End If
Next
Output.Show("屏幕分辨率：" & ScreenWidth)
Output.Show("真实屏幕分辨率：" & ScreenWidth * r)