Sub CheckAutoTime As Boolean
Dim p As Phone
Dim s As String
If p.SdkVersion >= 17 Then s = "android.provider.Settings.Global" Else s = "android.provider.Settings.System"
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim jo As JavaObject
Return jo.InitializeStatic(s).RunMethod("getInt", Array(ctxt.RunMethod("getContentResolver", Null), "auto_time", 0)) = 1
End Sub