| FindResults
Unni
This will do most of what you want:
Uses 555 Burrady Street, Vancouver, BC, Canada as the example.
<pre>
Sub AddPPAtAddr()
Dim oMap As MapPoint.Map
Dim this_addr As MapPoint.FindResults
Dim this_pp As MapPoint.Pushpin
Set oMap = GetObject(, "MapPoint.Application").ActiveMap
Set this_addr = oMap.FindAddressResults("555 Burrard", _
"Vancouver", , "BC", , geoCountryCanada)
Set this_pp = oMap.addpushpin(this_addr.item(1).Location, "Your PushPin")
this_pp.Highlight = True
' Optional set the ballon on and zoom the map to centre based on your new Pushpin
this_pp.BalloonState = geoDisplayBalloon
oMap.DataSets.ZoomTo
End Sub
</pre>
If you want a commercial solution drop me a note.
__________________
Calv1ns
|