google calendar desde vb6

[aedEric]

Amigos les comento yo no soy programador estoy aprendiendo vb6 de forma autodidacta e ahi por que no entiendo y voy aprendiendo las cosas, los aplicativos que he hecho son para mi uso personal tengo la idea de poder registrar ciertos eventos de mi base de datos firebird en un calendario y asu vez poder eliminarlos hasta el momento lo he logrado con outlook agrego y elimino eventos sin problemas, pero quisiera poder realizarlo con gmail  intente realizarlo con net

http://leandroascierto.com/foro/index.php?topic=2652.0

pero no he tenido exito por mi escaso conocimiento solo he podido agregar usando el api de google

ahora buscando por la web por algunos días encontre esto en un foro frances

https://mega.co.nz/#!bVxBDbYS!IgPF9QKS4SjyhGORAzWyMTwsUxQ4RpVtQL4XMRgw1WA

es un proyecto vb6 con el cual se puede agregar eventos al calendario de google utilizando Inet
se pueden visualizar los calendarios y los eventos, pero debido a su complejidad y debido a mi bajo nivel de conocimientos  no he podido saber por donde empezar para agregar la funcionalidad de poder eliminar algun evento, con este codigo se agregan un evento a Google calendar desde vb6
 

Código: [Seleccionar]

Dim stFormData As String
Dim stURl As String

Dim stDeb As String
Dim stFin As String
stDeb = "23/07/2014 10:00:00" 'Format(dtPKdu.Value, "yyyy-mm-ddTHH:MM:00.000Z")
stFin = "23/07/2014 11:00:00" 'Format(DTPkau.Value, "yyyy-mm-ddTHH:MM:00.000Z")

stURl = xmlCals(lstCals.ListIndex).selectSingleNode("content").Attributes.getNamedItem("src").Text
stFormData = "<entry xmlns='http://www.w3.org/2005/Atom'" & _
"   xmlns:gd='http://schemas.google.com/g/2005'>" & _
"   <category scheme='http://schemas.google.com/g/2005#kind'" & _
"   term='http://schemas.google.com/g/2005#event'></category>" & _
"   <title type='text'>" & EncodeUtf8(TxtObjet) & "</title>" & _
"   <content type='text'>" & EncodeUtf8(txtDescripEvent) & "</content>" & _
"   <gd:transparency" & _
"    value='http://schemas.google.com/g/2005#event.opaque'>" & _
"  </gd:transparency>" & _
"  <gd:eventStatus" & _
"    value='http://schemas.google.com/g/2005#event.confirmed'>" & _
"  </gd:eventStatus>" & _
"  <gd:where valueString='" & EncodeUtf8(TxtLieuEvent) & "'></gd:where>" & _
"  <gd:when startTime='" & stDeb & "'" & _
"    endTime='" & stFin & "'></gd:when>" & _
" </entry>"
If GooEnvoi("POST", stURl, stFormData) Then
 MsgBox "Ajout ok"
Else
 MsgBox "Erreur "
End If

espero que algun experto en la materia que lea mi post pueda guiarme, orientarme o sugerirme o darme su opinon para poder agregar dicha funcionalidad de antemano gracias
pd. si mi post falta al  reglamento del foro pido disculpas a los administradores del foro y entendere si es borrado
gracias y disculpen