Sub Activity_Create(FirstTime As Boolean)
SetTimeZone("America/New_York")
Log(DateTime.Time(DateTime.Now))
End Sub
Sub SetTimeZone(id As String)
Dim r As Reflector
Dim idTz As Object = r.RunStaticMethod("java.util.TimeZone", "getTimeZone", Array As String(id), _
Array As String("java.lang.String"))
r.RunStaticMethod("anywheresoftware.b4a.keywords.DateTime", "setTimeZoneInternal", _
Array As Object(idTz), Array As String("java.util.TimeZone"))
End Sub