本示例将显示一个以像素度量的对象在以磅为单位时的高度和宽度。

MsgBox "320x240 pixels is equivalent to " _
    & PixelsToPoints(320, False) & "x" _
        & PixelsToPoints(240, True) _
            & " points on this display."