AfterRedraw event

Occurs when MapPoint is finished repainting the map on the screen. Does not necessarily happen for each action that requires a repaint, since some repaints may be interrupted or merged.

Applies to

Objects:  Map, MappointControl

Syntax

object.AfterRedraw

Parameters

Part	Description
object	An expression that evaluates to a Map or MappointControl object.

Remarks

Do not make this event infinitely recursive by calling itself or causing itself to be called.

Do not create a modal dialog box—including message boxes—during this event.

Example

    'This sample needs a list box as well as a button added to the form
  Dim WithEvents objApp As MapPoint.Application
  Dim WithEvents objMap As MapPoint.Map


  Private Sub Form_Load()
    'Set up the application
    Set objApp = CreateObject("mappoint.application")
    Set objMap = objApp.ActiveMap
    objApp.Visible = True
    objApp.UserControl = True
  End Sub
  Private Sub Command1_Click()
    'Pan the map
    objMap.Pan geoNorth
  End Sub


  Private Sub objMap_AfterRedraw()
    List1.AddItem "After Redraw event fired"
  End Sub