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