Sub store_EventsReady (Success As Boolean, Events As List)
If Success Then
For Each e As CalendarEvent In Events
TableView1.AddTwoLines(e.Title, $"$DateTime{e.StartDate} - $DateTime{e.EndDate}"$)
Dim no As NativeObject = e
If no.GetField("hasNotes").AsBoolean = True Then
Log("Notes: " & no.GetField("notes").AsString)
End If
Next
TableView1.ReloadAll
End If
End Sub