Sub UpdateUI
Try
Main.Latitude=LastLocation.Latitude
Main.Longitude=LastLocation.Longitude
'Log("Lat=" & Main.Latitude & " Long=" & Main.Longitude)
FusedLocationProvider1.RemoveLocationUpdates
FusedLocationProvider1.Disconnect
ProgressDialogHide
Catch
ProgressDialogHide
Log("UpdateUI " & LastException.Message)
modFun.ShowError("NursesNotes_UpdateUI " & LastException.Message)
End Try
End Sub