I have a problem with a mappoint control in my Vb aplication. I have imported(with importdata function) a database from an access file in a dataset object variable. Now, I need to join this recordsets (or pushpin) with arrows.

Miguel
Thanks

Here is a sample that may help. VB6/MapPointCTL

Code:

Dim objmap As MapPointCtl.Map
Set objmap = MappointControl1.ActiveMap
Dim aShape As MapPointCtl.Shape
Dim aPushpin As MapPointCtl.Pushpin
Dim bPushpin As MapPointCtl.Pushpin

  Set aPushpin = objmap.AddPushpin(objmap.FindResults("New York, NY").Item(1))
  Set bPushpin = objmap.AddPushpin(objmap.FindResults("Los Angeles, CA").Item(1))
Set aShape = objmap.Shapes.AddLine(aPushpin.Location, bPushpin.Location)
aShape.Line.BeginArrowhead = True
aShape.Line.EndArrowhead = True