Sub LoadEvents 'Row 70
'lstvEvents.Initialize("lstvEvents")
' mycalendarlist.Initialize
' cal.Initialize
Dim lMessage As String
''' If Starter.CalendarID <> Null Then 'Row78
Log("LoadEvents ID:" & Starter.CalendarID)
Log("LoadEvents Name:" & Starter.Calendarname)
lblCalendarName.Text = Starter.CalendarName
'Läs in events
'lstvEvents.Initialize 'Row 88
lstvEvents.Clear
'mycalendarlist.Initialize
'cal.Initialize
mycalendarlist.Clear
mycalendarlist = cal.GetListofEventsforCalendarBetweenDates(Starter.CalendarID,DateTime.Add(DateTime.Now,0,0,-7),DateTime.Add(DateTime.Now,0,0,0))
'Each event is made up of the following 7 elements and the list repeats in blocks of 7 for every events
'(0) Event Name
'(1) Description
'(2) Start Time
'(3) End Time
'(4) Location
'(5) All day indicator, 1= all day, 0= not
'(6) Event_ID