LoadIFD example for Visual Basic

Dim RasterIO As New LEADRasterIO
' All examples will assume that "test.tif" has over 1002 images
' This example will load pages 1000 and 1001 after getting the information for page 1000:
RasterIO.GetFileInfo LEADRasterView1.Raster, "f:\IMAG001.I00", 1000, 0
' Setting LoadIFD to InfoIFD indicates that 1000 is treated as page 1
RasterIO.LoadIFD = RasterIO.InfoIFD
RasterIO.Load LEADRasterView1.Raster, "f:\IMAG001.I00", 0, 0, 2
' Reset LoadIFD to 0 so other TIF files will be handled properly
RasterIO.LoadIFD = 0