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 Lead1.IsSupportLocked(L_SUPPORT_DOCUMENT) Then
   MsgBox "No scale to gray - You need to unlock Document/Medical capabilities"
Else
   Lead1.BitonalScaling = BITONALSCALING_SCALETOGRAY
   Lead1.ForceRepaint
End If