WMFResolution example for Visual Basic

'This example displays the default resolution stored in a WMF,
   'changes the resolution to 150 dpi, and then loads the image
   'Display resolution stored in WMF
   'Note that InfoXRes and InfoYRes will return the same value

   Dim RasterIO As New LEADRasterIO

   RasterIO.GetFileInfo LEADRasterView1.Raster, _
                        "v:\compiler\vb40\metafile\arrows\2darrow1.wmf", 0, 0
   MsgBox "InfoXRes: " & CStr(RasterIO.InfoXRes) & "   InfoYRes: " & _
              CStr(RasterIO.InfoYRes)

   'Set resolution so WMF is loaded at 150 dpi
   RasterIO.WMFResolution = 150
   RasterIO.Load LEADRasterView1.Raster, _
                 "v:\compiler\vb40\metafile\arrows\2darrow1.wmf", _
                 0, 0, 1