Private Sub CarPushPin(car As CarObj, ID As Long, La As Double, Lo As Double, Note As String)
On Error GoTo err_CarPushPin
    Dim pp As PushPinKey, PPSet As MapPointCtl.DataSet, objLoc As MapPoint.Location
    
    If Not (ValidLatitude(La) Or ValidLongitude(Lo)) Then Exit Sub
    
    Set pp = car.PushPin
    
    If pp.PushPin Is Nothing Then
        Set pp.PushPin = objMap.AddPushpin(objMap.GetLocation(La, Lo), car.CarNumber)
        pp.PushPin.Note = Note
        pp.PushPin.BalloonState = geoDisplayName
        pp.PushPin.Symbol = objMap.Symbols("DefVehicleIcon")
        pp.PushPin.Symbol = objMap.Symbols(car.IconID)
            
        If DataSetsExists(car.CarNumber) Then
            Set PPSet = objMap.DataSets(car.CarNumber)
        Else
            Set PPSet = objMap.DataSets.AddPushpinSet(car.CarNumber)
        End If
        
        objMap.DataSets(car.CarNumber).Symbol = pp.PushPin.Symbol
    
        pp.PushPin.MoveTo PPSet
        pp.ID = ID
    
    Else
        If pp.ID = ID Then
            Exit Sub
        Else
            Set objLoc = objMap.GetLocation(La, Lo)
            Set pp.PushPin.Location = objLoc
            pp.PushPin.Note = Note
            'pp.PushPin.BalloonState = geoDisplayName
            pp.ID = ID
            
            DoEvents
        End If
    End If
    DoEvents
    
exit_CarPushPin:
    Exit Sub

err_CarPushPin:
    If Err = -2147181454 Then  'The requested member of the collection does not exist
        Resume Next
    Else
        If Err <> - 2147024809  Then
            MsgBox Err.Description, vbExclamation, App.ProductName
        End If
    End If
    Resume exit_CarPushPin

End Sub