If AmPmMode Then
Dim locale As NativeObject
locale = locale.Initialize("NSLocale").RuNMethod("alloc", Null).RunMethod("initWithLocaleIdentifier:", Array("en_US")) 'or en_GB
Dim no As NativeObject = DatePicker1
no.RunMethod("setLocale:", Array(locale))
Log("12h")
Else
Dim locale As NativeObject
locale = locale.Initialize("NSLocale").RuNMethod("alloc", Null).RunMethod("initWithLocaleIdentifier:", Array("en_GB")) 'or en_GB
Dim no As NativeObject = DatePicker1
no.RunMethod("setLocale:", Array(locale))
Log("24h")
End If