Sub OnMyLocationChangeListener1_MyLocationChange(Location1 As Location)
Log("OnMyLocationChangeListener1_MyLocationChange")
Dim zoom As Int = 14
mylocation = Location1
Log(mylocation)
lblgps.Text = "Lat. : " & NumberFormat(Location1.Latitude,1,8) & " Long. : " & NumberFormat(Location1.Longitude,1,8)
Log(Location1.Latitude & "-" & Location1.Longitude)
If tbsegui.Checked = True OR gpsfix = False Then
Dim cp As CameraPosition
Dim CameraUpdateFactory1 As CameraUpdateFactory
Dim CameraUpdate1 As CameraUpdate
If gpsfix = False Then
cp.Initialize(Location1.Latitude, Location1.Longitude, zoom)
Else
cp.Initialize2(Location1.Latitude, Location1.Longitude, zoom,Location1.Bearing,0)
End If
CameraUpdate1=CameraUpdateFactory1.NewCameraPosition(cp)
GoogleMapsExtras1.MoveCamera(gmap,CameraUpdate1)
lblkmh.Text = NumberFormat((Location1.Speed * 60 * 60)/1000,1,1) & " Km/h"
' gmap.MoveCamera(cp)
DoEvents
gpsfix = True
End If
End Sub