Sub Process Globals
Private FLP As FusedLocationProvider
end sub
Activity_Start(FirstTime As Boolean)
FLP.Initialize("FLP")
FLP.Connect
end sub
Sub FLP_ConnectionFailed(ConnectionResult1 As Int)
Log("Connection failed")
End Sub
Sub FLP_ConnectionSuccess()
Log("Connection success")
FLP.GetLastKnownLocation
End Sub
Sub FLP_LocationChanged(Location1 As Location)
Log("Location Changed: " & Location1)
End Sub