SavePage example for Visual Basic

Dim RasterIO As New LEADRasterIO
' replace page 1 from TEST.TIF
RasterIO.SavePage = 1
RasterIO.Save LEADRasterView1.Raster, "d:\temp\TEST.TIF", _
              FILE_TIF, 8, 0, SAVE_REPLACE