Dim job As HttpJob
job.Initialize("CalendarDelete", Me)
job.Delete("https://www.googleapis.com/calendar/v3/calendars/" & su.EncodeUrl(CalendarId, "UTF8") _
& "?access_token=" & oAuthAccessToken)
Dim m As Map = CreateMap("id":CalendarId, "summary":Summary, "description":Description)
Dim job As HttpJob
job.Initialize("CalendarUpdate", Me)
job.PutString("https://www.googleapis.com/calendar/v3/calendars/" & su.EncodeUrl(CalendarId, "UTF8") _
& "?access_token=" & oAuthAccessToken, Parse2(m))
job.GetRequest.SetContentType("application/json")