Sub Language
Dim lang As String = GetDefaultLanguage
if lang.StartsWith("it") then
'italiano
...
else if lang.StartsWith("de") then
'tedesco
...
else
'inglese
...
end fi
End Sub
Private Sub GetDefaultLanguage As String
Dim r As Reflector
r.Target = r.RunStaticMethod("java.util.Locale", "getDefault", Null, Null)
Return r.RunMethod("getLanguage")
End Sub