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