Private Sub worldLayer_Imported(ByVal sender As System.Object, ByVal e As Infragistics.Controls.Maps.MapLayerImportEventArgs) If e.Action = MapLayerImportAction.End Then ' polyline collection for end-points of line Dim lines As New MapPolylineCollection() Dim points As New List(Of Point)() 'US points.Add(New Point(-74.535, 40.246)) 'Brazil points.Add(New Point(-37, -5)) 'South Africa points.Add(New Point(20, -33)) 'Thailand points.Add(New Point(100, 15)) ' Convert Geodetic to Cartesian coordinates lines.Add(map1.MapProjection.ProjectToMap(points)) ' Create path element and set points using polylines Dim lineElement As New PathElement() lineElement.Polylines = lines lineElement.Fill = New SolidColorBrush(Colors.Red) lineElement.StrokeThickness = 2 map1.Layers(0).Elements.Add(lineElement) Dim worldRect As Rect = lineElement.WorldRect worldRect = lines.GetWorldRect() lineElement.WorldRect = worldRect End If End Sub