Sub AddItem(eID As String, eCategory As String, eName As String, eStart As String, eEnd As String, eColor As String, eAllDay As Boolean, eLocation As String, eNote As String)
Dim ne As Map = CreateMap()
ne.Put("id", eID)
ne.Put("name", eName)
ne.Put("start", eStart)
ne.Put("end", eEnd)
ne.Put("color", eColor)
ne.Put("timed", eAllDay)
ne.Put("category", eCategory)
ne.Put("note", eNote)
ne.Put("location", eLocation)
mEvents.Add(ne)
End Sub