BitmapDpi example for Visual Basic

   Dim x, y
   hAuto = LEAD1.AnnCreate (ANNOBJECT_AUTOMATION, False, False)
   x = LEAD1.AnnGetBitmapDpiX (hAuto)
   y = LEAD1.AnnGetBitmapDpiY (hAuto)
   MsgBox x & ", " & y
   LEAD1.AnnSetBitmapDpiX hAuto, x + 2, False
   LEAD1.AnnSetBitmapDpiY hAuto, y + 2, False
   x = LEAD1.AnnGetBitmapDpiX(hAuto)
   y = LEAD1.AnnGetBitmapDpiY(hAuto)
   MsgBox x & ", " & y