Solution or Workaround
In Microsoft Access 2000, calling the Refresh and RefreshLayer methods in any of the Mouse* events will not trigger any of the *LayerDraw events.
This is a known issue.
Instead of using Map1.Refresh in the Mouse* event subroutine, try:
Dim rect as MapObjects2.Rectangle
Set rect = Map1.Extent
Set Map1.Extent = rect
This cannot be used to mimic the behavior of the RefreshLayer method.