Hola he podido simplificar esto para agregar un evento a google calendar
Private Sub InserGCalendar()
Dim myService As New CalendarService("GoogleSMS")
myService.setUserCredentials("xxxxx@gmail.com", "xxxxx")
Dim Entrada As New EventEntry
Entrada.Title.Text = "gracias dios mio"
Dim Hora As New [When]
Hora.StartTime = "20/07/2014 11:00:00"
Entrada.Times.Add(Hora)
Dim Recordatorio As New Reminder
Recordatorio.Minutes = 5
Recordatorio.Method = Reminder.ReminderMethod.sms
Entrada.Reminders.Add(Recordatorio)
Dim myUri As New Uri("http://www.google.com/calendar/feeds/default/private/full")
Dim myEventEntry As AtomEntry = myService.Insert(myUri, Entrada)
End Sub
pero aun debido a mi bajo conocimiento en net no e logrado eliminar un evento en google calendar, si alguien me puede hechar una mano con sus opiniones o sugerencias se lo voy agradecer gracias