MapForums

Hi folks,
the code below generates a runtime error R6025 after looping 2004 times, under mp2002 with VB6 SP5. This is stripped down from a more complex app which sees same behaviour. Anyone seen this before? Suggestions?
thanks,
Larry


Private Sub Command1_Click()
Dim dblLoop As Double
Dim dblLat As Double

Dim objPushPin As MapPointctl.Pushpin
Dim objLoc As MapPointctl.Location
Dim objMap As MapPointctl.Map
Dim bKeepGoing As Boolean

Set objMap = Me.MappointControl1.ActiveMap

bKeepGoing = True
dblLat = 52
dblLoop = 1

While bKeepGoing
Set objLoc = objMap.GetLocation(dblLat, -114)
Set objPushPin = objMap.AddPushpin(objLoc, "IT:" & CStr(dblLoop))

objPushPin.BalloonState = geoDisplayNone
objPushPin.Symbol = 66
objPushPin.Highlight = False
objPushPin.Note = "IT:" & CStr(dblLoop)
Debug.Print dblLoop

Set objPushPin = Me.MappointControl1.ActiveMap.FindPushpin("IT:" & CStr(dblLoop))
If Not (objPushPin Is Nothing) Then
objPushPin.Select
objPushPin.Delete
End If
DoEvents
dblLat = dblLat - 0.001
dblLoop = dblLoop + 1
Wend
Debug.Print "done"
End Sub

Private Sub Form_Load()
Me.MappointControl1.NewMap geoMapNorthAmerica
End Sub
[/code]

I'm finding references to this as a "pure virtual reference call" when I search the Knowledge Base. Start here: http://support.microsoft.com/default...BHOWTO#faq1387 and just put in "R6025" where is says Search For.. good luck.

__________________

Hi Eric,
thanks, I had checked out Microsoft for anything similar, didn't see much. Found some other non-Microsoft apps that report that error, so tried their fixes as well. (google hits etc.)
There is a problem with mappoint in saving html files, the ms workaround is to close, wait, and reopen the map file. It's messy but it also resolved my problem.
Changing the object location values instead of deleting and then creating at the new location also causes the error.