MapForums

Dim objApp As New MapPoint.Application
Dim objMap As MapPoint.Map
Dim objLoc1 As MapPoint.Location
Dim objLoc2 As MapPoint.Location
Dim Arrow As MapPoint.Shape
Dim begin As String
Dim finish As String

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

'Get two locations and zoom to it
begin = TextBox1.Value
finish = TextBox2.Value
Set objLoc1 = objMap.FindResults(begin).Item(1)
Set objLoc2 = objMap.FindResults(finish).Item(1)
Set objMap.Location = objLoc1 'Zoom to begin
  
'Add an Arrow from one location to the other
Set Arrow = objMap.Shapes.AddLine(objLoc1, objLoc2)
Arrow.Line.EndArrowhead = True
Arrow.Line.Weight = 1
Arrow.SizeVisible = True
  
objApp.Visible = True

MP.ActiveMap.DataSets.ZoomTo();