BitmapDpi Example for Visual Basic

   Dim x, y, hAuto As Long
   RasterAnn.AnnCreate ANN_OBJECT_AUTOMATION, False, False
   hAuto = RasterAnn.AnnObject

   x = RasterAnn.AnnGetBitmapDpiX (hAuto)
   y = RasterAnn.AnnGetBitmapDpiY (hAuto)
   MsgBox x & ", " & y
   RasterAnn.AnnSetBitmapDpiX hAuto, x + 2, False
   RasterAnn.AnnSetBitmapDpiY hAuto, y + 2, False
   x = RasterAnn.AnnGetBitmapDpiX (hAuto)
   y = RasterAnn.AnnGetBitmapDpiY (hAuto)
   MsgBox x & ", " & y