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




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


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.


    '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