Hi,
I have to draw Arrows between two points and then I want both points to be in the zoom and not only one.
Thanks for your helpCode: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