SetDateTimeLocale ("es_ES")
Sub SetDateTimeLocale (locale As String)
Dim loc As NativeObject
loc = loc.Initialize("NSLocale").RunMethod("localeWithLocaleIdentifier:", Array(locale))
Dim no As NativeObject = DateTime
no.GetField("dateFormat").SetField("locale", loc)
no.GetField("timeFormat").SetField("locale", loc)
End Sub