I create some shapes with the AddDrivetimeZone method. It seems to be a nice tools but something happens when I zoom on a pushpin... During the shape construction, the map center on the pushpin that I use to create the Shape... so, I loose the context of the consultation...

This is the code. I don't use any .SELECT or .GOTO method ! The ctrlSLIDER is a slider control to increase or decrease the drivetimezone...

For i = 1 To 10
        Set objLOC = Me.ctrlMAPPOINT.ActiveMap.FindPushpin("PP" & i).Location
        Set objSHAPE = Me.ctrlMAPPOINT.ActiveMap.Shapes.AddDrivetimeZone(objLOC, Me.ctrlSLIDER.Value * geoOneMinute)
        Select Case Me.ctrlSLIDER.Value
        Case 0 To 20
            objSHAPE.Line.ForeColor = vbGreen
        Case 21 To 40
            objSHAPE.Line.ForeColor = RGB(255, 128, 0)
        Case Else
            objSHAPE.Line.ForeColor = vbRed
        End Select
    Next i