次のコードは、新しい 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)