SaveLSB example for Visual Basic

   Dim RasterIO As New LEADRasterIO
   Dim RasterProc As New LEADRasterProcess
   ' This example saves a bitmap compatible with the requirements
   ' of the TIFF Class F format
   ' make sure we are using pixels
   LEADRasterView1.ScaleMode = 3
   RasterIO.SaveLSB = True
   RasterIO.SavePageNumberTag = True
   LEADRasterView1.Raster.BitmapXRes = 204
   LEADRasterView1.Raster.BitmapYRes = 196
   ' scale the bitmap (preserving the aspect ratio) to have a width of 1728 pixels
   RasterProc.Size LEADRasterView1.Raster, 1728, _
                   LEADRasterView1.Raster.BitmapHeight * 1728 / _
                   LEADRasterView1.Raster.BitmapWidth, 0
   RasterIO.Save LEADRasterView1.Raster, "d:\temp\lsb.tif", _
                 FILE_CCITT_GROUP3_1DIM, 1, 0, SAVE_OVERWRITE