I’ve been surfing all day and downloading all kinds of crazy MapPoint examples but for the life of me can’t seem to create my own MapPoint interactive program. Can anyone give me an example of some full code that will add a pushpin to an open MapPoint application by postal or zip code? Right now I’m exhausted and about 6 pots of coffee shy of a working solution.

In the end I’d like to have my code start running based on a “right click” on the MapPoint map but for the time being I’m fine with stepping through my code from VB 6.0 , for some reason all of the examples I’ve tried to create just sit there and none of the events ever get fired. EXAMPLES, IDEAS or COFEEE Welcome? I'm familiar with VB 6.0 but not on how to get it working with MapPoint... THANKS

Try this example.

Code:

Dim objmap As MapPoint.Map
Set objmap = GetObject(, "MapPoint.Application").ActiveMap
Set objFindResults = objmap.FindAddressResults(, , , , "20037", geoCountryUnitedStates)
objmap.AddPushpin objFindResults(1).Location, "My Pushpin"