Sub GetLanguage As String Dim no As NativeObject Dim s As String = no.Initialize("NSLocale") _ .RunMethod("preferredLanguages", Null).RunMethod("objectAtIndex:", Array(0)).AsString If s.Length > 2 Then s = s.Substring2(0, 2) Return s End Sub Sub GetCountry As String...
www.b4x.com