Sub CheckLanguage As String
Dim language As String
Dim r As Reflector
Try
r.Target = r.RunStaticMethod("java.util.Locale", "getDefault", Null, Null)
language = r.RunMethod("getLanguage")
Catch
Log(LastException)
End Try
Return language.ToLowerCase
End Sub