Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private gmap As GoogleMap
Private MapFragment1 As MapFragment
Dim Latnya, Longnya As Double
End Sub
Sub BtnTestBaruJarakFinish_Click
Dim l1 As LatLng
Dim Points As List
Points.Initialize
l1.Initialize(Latnya, Longnya)
Points.Add(l1)
Dim pl As Polyline = gmap.AddPolyline
pl.points = Points
pl.Color=Colors.blue
pl.ZIndex=3
ToastMessageShow("ss",False)
End Sub
Public Sub LocationChanged(Location1 As Location)
Latnya = Location1.Latitude
Longnya = Location1.Longitude
End Sub