Sub GetLanguage2 As String
Dim str As String
Dim compat As JavaObject
compat.InitializeStatic("android/support/v4/os/ConfigurationCompat".Replace("/", "."))
Dim Resources As JavaObject
Resources = Resources.InitializeStatic("android.content.res.Resources").RunMethodJO("getSystem", Null).RunMethod("getConfiguration", Null)
Dim locales As JavaObject = compat.RunMethod("getLocales", Array(Resources))
Dim locale As JavaObject = locales.RunMethod("get", Array(0))
str = locale.RunMethod("getLanguage", Null)
Return str
End Sub