BitonalScaling example for Visual Basic

Note: Also works with Access 95 and 97.

This example sets the display to use scale-to-gray and repaints the image. This affects only 1-bit images.

If LEADRasterView1.Raster.IsSupportLocked(L_SUPPORT_DOCUMENT) Then
   MsgBox "No scale to gray - You need to unlock Document/Medical capabilities"
Else
   LEADRasterView1.BitonalScaling = BITONALSCALING_SCALETOGRAY
   LEADRasterView1.ForceRepaint
End If