SaveResolutionCount example for Visual Basic

Dim i As Integer

    ' assume that our bitmap is 800 x 600
    ' save 3 resolutions
    LEAD1.SaveResolutionCount = 3

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

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

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