Private Sub getLabelLocationForAllowAllTime As String
Try
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim PackageManager As JavaObject = ctxt.RunMethod("getPackageManager", Null)
Dim res As JavaObject = PackageManager.RunMethod("getResourcesForApplication", Array("com.google.android.permissioncontroller")) ' This line will crash on some phones
Dim resId As Int = res.RunMethod("getIdentifier", Array("app_permission_button_allow_always", "string", "com.android.permissioncontroller"))
Dim result As String = res.RunMethod("getString", Array(resId))
Return result
Catch
Return "fallback string"
End Try
End Sub