Scroll event example for Access 95 and 97

This example demonstrates the Scroll event.

Private Sub Lead1_Scroll ()
  ' Add a TextBox control to your form and use it for this test
  cText = "Image origin: " + CStr(Lead1.DstLeft) + ", " + CStr(Lead1.DstTop)
  Text1.Value = cText
End Sub