I am trying to get the addresses of Nearby places using vb. This is part of my code:
Dim objMap As MapPoint.Map
Dim objLoc As MapPoint.Location
Dim objStr As MapPoint.StreetAddress
Dim TheNum as Integer
Dim TheTextBox as String
Dim objApp As New MapPoint.Application
'Set up application
Set objMap = objApp.ActiveMap
objApp.Visible = False
objApp.UserControl = True
'Get a location on the map
Set objLoc = objMap.FindResults(123 Street, City, Province).Item(1)
'Find nearby places 2 miles from that location
'number of nearby place 2 miles away
TheNum = objLoc.FindNearby(2).Count
'loop over the number of places
For i = 1 To TheNum
TheTextBox = TheTextBox & objLoc.FindNearby(Me.txtDistance).Item(i).StreetAd dress & VBCRLF
Next
Me.Text1 = TheTextBox
The problem is that this doesn't always return the address. Sometimes it returns a telephone. However, if I does this from the MapPoint front end it has the address.
Anybody out there have an Idea? Thanks in advance.