如何以编程方式创建公共谷歌日历

Question

以下代码片段成功创建了一个新的Google日历。 但是，日历默认设置为私有。 无法弄清楚如何创建新的Google日历并将其设置为公开

Dim calendar As New CalendarEntry    
calendar.Title.Text = Trim(GoogleRow.Item("CalendarName"))    
calendar.Summary.Text = GoogleRow.Item("Comments")    
calendar.TimeZone = "Europe/Athens"    
calendar.Hidden = False    
myService.Insert(query.Uri, calendar)