How To Automate MapPoint 2000 from Visual Basic (236615)

MORE INFORMATION

Building the Automation Sample

1. Start Visual Basic and create a new standard EXE project.
   
   Form1 is created by default.
2. Add a Command button to Form1.
3. Click References on the Project menu to bring up the References dialog box.
4. Add a reference to the Microsoft MapPoint 1.0 Object Library and then click OK to close the References dialog box.
5. Insert the following code in the code window for Form1:

   Option Explicit
   
   Private Sub Command1_Click()
     ' Declare variables
     Dim oApp As MapPoint.Application
     Dim oMap As MapPoint.Map
     Dim oPush As MapPoint.Pushpin
     
     ' Create an instance of MapPoint.
     Set oApp = CreateObject("MapPoint.Application")
   
     ' Add a new map.
     Set oMap = oApp.NewMap
   
     ' Find a specific address.
     oMap.Find ("1 Microsoft Way, Redmond, WA")
   
     ' Select the pushpin at the above address.
     Set oPush = oMap.FindPushpin("1 Microsoft Way")
   
     ' Go to that pushpin, change its name, and highlight it.
     oPush.GoTo
     oPush.Name = "Microsoft"
     oPush.Highlight = True
   
     ' Release references.
     Set oPush = Nothing
     Set oMap = Nothing
     Set oApp = Nothing
   End Sub
   					

6. Press F5 to run the project.
   
   When you click the Command button, you see MapPoint start and then put a highlighted pushpin at Microsoft.