Sub HandleLocationSettingsStatus(LocationSettingsStatus1 As LocationSettingsStatus)
Select LocationSettingsStatus1.GetStatusCode
Case LocationSettingsStatus1.StatusCodes.RESOLUTION_REQUIRED
Log("RESOLUTION_REQUIRED")
' device settings do not meet the location request requirements
' a resolution dialog is available to enable the user to change the settings
LocationSettingsStatus1.StartResolutionDialog("LocationSettingsResult1")
Case LocationSettingsStatus1.StatusCodes.SETTINGS_CHANGE_UNAVAILABLE
Log("SETTINGS_CHANGE_UNAVAILABLE")
' device settings do not meet the location request requirements
' a resolution dialog is not available to enable the user to change the settings
Msgbox("Unable to listen for location updates, device does not meet the requirements.", "Problem")
Activity.Finish
End Select
End Sub