Try
   Dim myService As New CalendarService("test")
   myService.setUserCredentials(user_name, user_password)
   Dim query As New CalendarQuery()
   query.Uri = New Uri("https://www.google.com/calendar/feeds/default/owncalendars/full")
  Dim resultFeed As CalendarFeed = DirectCast(myService.Query(query), CalendarFeed)
Catch ex As Exception
  lblerror.Text = ex.ToString
  connect = 0
End Try