PaintEffect example for Access 2.0

The following modules use the KeyDown and KeyUp events to repaint the image with effects.

Sub Lead1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 116 Then 'Code for F5
   Me![LEAD1].Object.AutoRepaint = False
   Me![LEAD1].Object.Load "c:\lead\images\image1.cmp", 0, 0, 1
   Me![LEAD1].Object.EffectGrain = 20
   Me![LEAD1].Object.EffectDelay = 50
   Me![LEAD1].Object.WandSize = 5
   Me![LEAD1].Object.WandColor = RGB(255, 255, 0) 'Yellow Wand
   Me![LEAD1].Object.PaintEffect = EFX_EFFECT_WIPE_L_TO_R
   Me![LEAD1].Object.ForceRepaint
End If
End Sub

Sub Lead1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 116 Then 'Code for F5
   Me![LEAD1].Object.PaintEffect = EFX_EFFECT_WIPE_R_TO_L
   Me![LEAD1].Object.ForceRepaint
   Me![LEAD1].Object.PaintEffect = EFX_EFFECT_NONE
End If
End Sub