Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then DateTime.ListenToExternalTimeChanges
End Sub
Sub Activity_Resume
DateTime.SetTimeZone(DateTime.TimeZoneOffset)
Activity.LoadLayout("Layout1")
Dim data As String = "1496441223000"
Label1.Text= DateTime.Date(data) & " - " & DateTime.Time(data)
End Sub