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