BitonalScaling example for Access 2.0

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

If Me![LEAD1].Object.IsSupportLocked(L_SUPPORT_DOCUMENT) Then
   MsgBox "No scale to gray - You need to unlock Document/Medical capabilities"
Else
   Me![LEAD1].Object.BitonalScaling = BITONALSCALING_SCALETOGRAY
   Me![LEAD1].Object.ForceRepaint
End If