BitonalScaling (ILEADRasterImgList) example for Visual Basic

   ' needed for the BitonalScaling feature
   LEADRaster1.UnlockSupport L_SUPPORT_DOCUMENT, L_KEY_DOCUMENT
   LEADImgList1.BitonalScaling = IMGLST_BITONALSCALING_NORMAL
   LEADImgList1.LoadFromFile "G:\Images\MultiPage.tif", 1, 1, -1
   LEADImgList1.EnsureVisible LEADImgList1.Count – 1
   'force redrawing
   LEADImgList1.Visible = False
   LEADImgList1.Visible = True
   MsgBox "will enable bitonal scale to gray"
   'set the control to use scale to gray
   LEADImgList1.BitonalScaling = IMGLST_BITONALSCALING_SCALETOGRAY
   'force redrawing
   LEADImgList1.Visible = False
   LEADImgList1.Visible = True