Scroll event example for Access 2.0

This example demonstrates the Scroll event.

Sub LEAD1_Scroll ()
  ' Add a TextBox control to your form and use it for this test
  cText = "Image origin: " + CStr(Me![LEAD1].Object.DstLeft) + ", " + CStr(Me![LEAD1].Object.DstTop)
  Text1.Value = cText
End Sub