Sub Update_Driver(newloc as Location)
If newloc.IsInitialized Then
Dim CameraPosition1 As CameraPosition 'CameraPosition1.Initialize2(gmap.MyLocation.Latitude, gmap.MyLocation.Longitude, gmap.CameraPosition.Zoom, 0, 0)
CameraPosition1.Initialize(newloc.Latitude,newloc.Longitude, 20)
Dim newLatLong As LatLng
newLatLong.Initialize(newloc.Latitude,newloc.Longitude)
gmap.moveCamera(CameraPosition1)
mrkr(vhlMarkerId).Position=newLatLong
mrkr(vhlMarkerId).Draggable=True
Dim mx As MarkerExtras
mx.SetRotation(mrkr(vhlMarkerId),newloc.BearingTo(lastLocation))
lastLocation=newloc
End If
End Sub