LoadUseViewPerspective example for Access 2.0

Note: This topic is for Document/Medical only.

This example times the loading of a bitmap with and without changing the internal view perspective.

'Declare local variables
Dim StartTime, DeltaTime

'Do not include paints when measuring time.
Me![LEAD1].Object.AutoRepaint = False

'Time the load using the bitmap's view perspective.
Me![LEAD1].Object.LoadUseViewPerspective = True
StartTime = Now
Me![LEAD1].Object.Load "d:\lead\images\rotated.tif", 0, 0, 1
DeltaTime = DateDiff("s", StartTime, Now)
MsgBox Str$(DeltaTime) + " seconds loaded as is"

'Time the load that converts the bitmap's view perspective.
Me![LEAD1].Object.LoadUseViewPerspective = False
StartTime = Now
Me![LEAD1].Object.Load "d:\lead\images\rotated.tif", 0, 0, 1
DeltaTime = DateDiff("s", StartTime, Now)
MsgBox Str$(DeltaTime) + " seconds converted on load"