MapForums

      Public Sub New()
            log.Debug("Creating MapPoint.Application object")

            m_objApp = New MapPoint.Application()

            'log.Debug("Setting UserControl invisible.")
            'm_objApp.Visible = False
            'm_objApp.UserControl = False
        End Sub

        Public Sub Dispose()
            log.Debug("Quitting Application")
            CType(m_objApp, MapPoint._Application).Quit()
        End Sub

        Public Sub Output()
            log.Debug("Entering Output Sub")

            Dim _objMap As MapPoint.MapClass

            'The MapPoint .ptm folder and file to open
            Dim _projectFilename As String
            _projectFilename = m_MapPointProjectFolder & "\" & m_MapPointProjectName

            log.Debug("Filename = " & _projectFilename)

            'The name of the folder and file to save the html as
            Dim _dirInfoOutput As New DirectoryInfo(m_ImageOutputFolder)
            If Not _dirInfoOutput.Exists Then
                log.Debug("Directory " & _dirInfoOutput.FullName & " does not exist.")
                _dirInfoOutput.Create()
                log.Debug("Directory " & _dirInfoOutput.FullName & " created.")
            End If

            Dim _projectSaveAs As String
            _projectSaveAs = m_ImageOutputFolder & "\" & m_ImageOutputFilename

            Try
                'Open an existing .ptm file
                log.Debug("Opening Map Project " & _projectFilename)
                _objMap = m_objApp.OpenMap(_projectFilename, False)
            Catch ex As Exception
                log.Fatal("Failed to open Map Project " & _projectFilename, ex)
                Throw New ApplicationException("WTFO", ex)
            End Try

            log.Debug("Map Opened ")
            m_objApp.Height = m_ImageOutputHeight + m_ImageOutputHeightAdjustment
            m_objApp.Width = m_ImageOutputWidth + m_ImageOutputWidthAdjustment
            log.Debug("App Height = " & m_objApp.Height & ". App Width = " & m_objApp.Width)
            log.Debug("Map Height = " & _objMap.Height & ". Map Width = " & _objMap.Width)
            log.Debug("Config Map Height = " & m_ImageOutputHeight & ". Config Map Width = " & m_ImageOutputWidth)
            log.Debug("Config Map Height Adj = " & m_ImageOutputHeightAdjustment & ". Config Map Width Adj = " & m_ImageOutputWidthAdjustment)

            Try
                'Update the data linked to the map
                log.Debug("Updating linked data. Name(" & m_objApp.Application.ActiveMap.DataSets(1).SourceFullName & ") Source(" & m_objApp.Application.ActiveMap.DataSets(1).SourceFullName & ")")
                m_objApp.ActiveMap.DataSets(1).UpdateLink()
                log.Debug("Linked data updated successfully.")

            Catch ex As Exception
                log.Fatal("Unable to update linked data.", ex)
            End Try

            Try
                log.Debug("Saving Map as Web Page.")
                'Save the map as a web page with supporting files
                _objMap.SaveAs(_projectSaveAs, GeoSaveFormat.geoFormatHTMLMap, False)

                log.Debug(_projectSaveAs & " saved as web page.")
            Catch ex As Exception
                log.Fatal("Unable to save map as html.", ex)
            End Try

            Try
                'log.Debug("Saving Map.")
                'Tell the application that the map is saved even though
                'we don't want to save it.
                m_objApp.ActiveMap.Saved = True
                'Save the Map
                'm_objApp.ActiveMap.Save()
                'log.Debug("Map Saved.")

            Catch ex As Exception
                log.Error("Unable to save map.", ex)
            Finally
                'Clean up
                _objMap = Nothing
            End Try

        End Sub

Dim objApp As New MapPoint.Application
  Dim objMap As MapPoint.Map
  Dim objRoute As MapPoint.Route
  Dim objSW As MapPoint.SavedWebPage

  'Set up the application
  Set objMap = objApp.ActiveMap
  Set objRoute = objMap.ActiveRoute
  objApp.Visible = True
  objApp.UserControl = True

  'Create a route
  objRoute.Waypoints.Add objMap.FindResults("Seattle, WA").Item(1)
  objRoute.Waypoints.Add objMap.FindResults("Redmond, WA").Item(1)
  objRoute.Calculate

  'Use SavedWebPages property to create a saved Web page
  Set objSW = objMap.SavedWebPages.Add("SavedWeb", _
    objRoute.Waypoints.Item(1).Location, "New Title", _
    True, False, True, 760, 570, False, True, False, True)
  objSW.Save