来自vb.net的Google Calendar API返回空列表

Question

我创建了一个简单的 vb.net 函数，该函数读取 google日历事件。

我对服务帐户使用身份验证，并读取与服务帐户地址共享的日历列表。

但是当我执行函数时，列表为空！

代码：

Public Sub ReadCalendarEvents()
    Dim _googleSecretJsonFilePath As String
    Dim _applicationName As String
    Dim _scopes As String()

    '----- set up credential tokens -------------------
    _googleSecretJsonFilePath = "my json file path"
    _applicationName = "TEST CALENDAR"
    _scopes = {CalendarService.Scope.CalendarEventsReadonly}

    Dim credential As GoogleCredential
    Using stream As New FileStream(_googleSecretJsonFilePath, FileMode.Open, FileAccess.ReadWrite)
        credential = GoogleCredential.FromStream(stream).CreateScoped(_scopes)
    End Using

    Dim objBaseClientServiceInitializer As New BaseClientService.Initializer()
    objBaseClientServiceInitializer.HttpClientInitializer = credential
    objBaseClientServiceInitializer.ApplicationName = _applicationName

    dim m_CalendarEventsService As New CalendarService
    m_CalendarEventsService = New CalendarService(objBaseClientServiceInitializer)

    Dim objEventsRequest As EventsResource.ListRequest
    Dim lstEvents As New Events

    objEventsRequest = m_CalendarEventsService.Events.List("primary")

    With objEventsRequest
        .MaxResults = 10
        .ShowDeleted = False
        .OrderBy = EventsResource.ListRequest.OrderByEnum.StartTime
        .SingleEvents = True
        .TimeMin = Now
        lstEvents = .Execute()
    End With


End Sub

怎么了？