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