SaveLSB example for Visual Basic

' This example saves a bitmap compatible with the requirements
   ' of the TIFF Class F format
   ' make sure we are using pixels
   LEAD1.ScaleMode = 3
   LEAD1.SaveLSB = True
   LEAD1.SavePageNumberTag = True
   LEAD1.BitmapXRes = 204
   LEAD1.BitmapYRes = 196
   ' scale the bitmap (preserving the aspect ratio) to have a width of 1728 pixels
   LEAD1.Size 1728, LEAD1.BitmapHeight * 1728 / LEAD1.BitmapWidth, 0
   LEAD1.Save "c:\i\lsb.tif", FILE_CCITT_GROUP3_1DIM, 1, 0, SAVE_OVERWRITE