Sub wegLinie
gextra.Initialize(gmap)
Dim pl2 As Polyline
pl2 = gmap.AddPolyline
Dim ll4, ll5, ll6, ll7,ll8,ll9,ll10 As LatLng
ll4.Initialize(47.5191458, 7.612324300000001)
ll5.Initialize(47.5188244, 7.613665999999999)
ll6.Initialize(47.5195302, 7.614142699999999)
ll7.Initialize(47.5194594, 7.6184728)
ll8.Initialize(47.51802000000001, 7.619059999999999)
ll9.Initialize(47.5133286,7.6207118 )
ll10.Initialize(47.513098,7.622527 )
pl2.Points = Array(ll4,ll5,ll6,ll7,ll8,ll9,ll10)
gextra.ZoomToPoints(pl2.Points)
pl2.Width = 5
pl2.Color = Colors.Red
End Sub