I have a simple app that just refreshes on command a new location on the map. As i click the button the mappoint process grows and grows.. can anyone see a problem in my code or is this a mappoint problem since it shouldnt be refreshed in under 15 seconds

Code:

Dim newlat
Dim newlong
Dim zoom
Dim objpushpin As MapPointCtl.Pushpin
Dim objLoc As MapPointCtl.Location
Dim objMap As MapPointCtl.Map


Private Sub Command1_Click()
    newlat = newlat + 0.0008
    newlong = newlong + 0.0008
    
    Set objMap = MappointControl1.ActiveMap
    Set objLoc = objMap.GetLocation(newlat, newlong, zoom)
    Set objpushpin.Location = objLoc
    objLoc.GoTo
    
    Set objMap = Nothing
    Set objLoc = Nothing
End Sub

Public Sub Form_Load()

    MappointControl1.NewMap 1
    
    Set objMap = MappointControl1.ActiveMap
    
    newlat = 42.67986
    newlong = -73.696918
    zoom = 1
    
    Set objLoc = objMap.GetLocation(newlat, newlong, zoom)
    Set objpushpin = objMap.AddPushpin(objLoc, "Current Location")
    objpushpin.Symbol = 82
    objLoc.GoTo
    
    Set objMap = Nothing
    Set objLoc = Nothing
    
End Sub

Yep...I've noticed this too ... except I update every second and MapPoint eats up 4K every second. No response from Microsoft however ... perhaps this will be addressed in next version?

Originally Posted by mzupan

I have a simple app that just refreshes on command a new location on the map. As i click the button the mappoint process grows and grows.. can anyone see a problem in my code or is this a mappoint problem since it shouldnt be refreshed in under 15 seconds

Code:

Dim newlat
Dim newlong
Dim zoom
Dim objpushpin As MapPointCtl.Pushpin
Dim objLoc As MapPointCtl.Location
Dim objMap As MapPointCtl.Map


Private Sub Command1_Click()
    newlat = newlat + 0.0008
    newlong = newlong + 0.0008
    
    Set objMap = MappointControl1.ActiveMap
    Set objLoc = objMap.GetLocation(newlat, newlong, zoom)
    Set objpushpin.Location = objLoc
    objLoc.GoTo
    
    Set objMap = Nothing
    Set objLoc = Nothing
End Sub

Public Sub Form_Load()

    MappointControl1.NewMap 1
    
    Set objMap = MappointControl1.ActiveMap
    
    newlat = 42.67986
    newlong = -73.696918
    zoom = 1
    
    Set objLoc = objMap.GetLocation(newlat, newlong, zoom)
    Set objpushpin = objMap.AddPushpin(objLoc, "Current Location")
    objpushpin.Symbol = 82
    objLoc.GoTo
    
    Set objMap = Nothing
    Set objLoc = Nothing
    
End Sub