Public Sub GotoParis
Dim cp As CameraPosition
cp.Initialize2(48.8566, 2.3522,17.3,80,90)
gmap.MoveCamera(cp)
gmap.AddMarker(48.8566,2.3522,"FIRST POINT!!!")
gmap.AddMarker(48.8566,2.3622,"SECOND POINT!!!")
gmap.AddMarker(48.8580,2.3622,"THIRD POINT!!!")
'CREATE LINE
Dim line As Polyline
Dim Allpoints As List
Dim point As LatLng
line=gmap.AddPolyline
Allpoints.Initialize
line.Color=Colors.Red
line.Geodesic=True
line.Width=15
point.Initialize(48.8566, 2.3522)
Allpoints.Add(point)
point.Initialize(48.8566, 2.3622)
Allpoints.Add(point)
point.Initialize(48.8580, 2.3622)
Allpoints.Add(point)
line.Points=Allpoints
End Sub