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.
|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