SaveResolutionCount example for Visual Basic

    Dim i As Integer
    Dim RasterIO As New LEADRasterIO
    ' assume that our bitmap is 800 x 600
    ' save 3 resolutions
    RasterIO.SaveResolutionCount = 3

    RasterIO.SaveResolutionWidth(0) = 800
    RasterIO.SaveResolutionHeight(0) = 600
    RasterIO.SaveResolutionWidth(1) = 400
    RasterIO.SaveResolutionHeight(1) = 300
    RasterIO.SaveResolutionWidth(2) = 200
    RasterIO.SaveResolutionHeight(2) = 150

    ' get the SaveResolution info
    MsgBox "SaveResolutionCount = " + CStr(RasterIO.SaveResolutionCount)

    For i = 0 To RasterIO.SaveResolutionCount - 1
        MsgBox "SaveResolution(" + CStr(i) + ") = " +  _
        CStr(RasterIO.SaveResolutionWidth(i)) + " x " +  _
        CStr(RasterIO.SaveResolutionHeight(i))
    Next