Mostrar contatos do msn

Bem, eu criei esse programinha de testes para ver como se usava o API do messenger, e acho que funcionou bem. Antes de apresentar o código, gostaria de deixar claro que não irei explicar nada, exceto uma pequena parte que irá confundir vocês.
Outra coisa, para utilizar o código você tem que possuir no seu projeto a Messenger API Type Library, que é a API do msn, assim você terá acesso ao seu msn de forma externa. Para adicionar esse item você vai ir em:
Project > Add Reference > COM > Messenger API Type Library

Vamos ao código:

Código:

        Dim msncontact As MessengerAPI.IMessengerContact
        Dim msncontacts As MessengerAPI.IMessengerContacts = objMSN.MyContacts
        ListBox1.Items.Clear()
        For Each msncontact In msncontacts
            ListBox1.Items.Add(msncontact.SigninName)
        Next
        ListBox1.Items.RemoveAt(0)
        Label2.Text = ListBox1.Items.Count

Bem, como viram, eu exclui o primeiro item da listbox, mas porque? Porque esse item se trata de... bem, eu não sei ao exatoo que é, mas você pode ter certeza de que não é um contato.
Nesse projeto eu utilizei, 1 botão, 2 label, uma listbox. Esse código eu coloquei no evento de click do botão. Não exibirei screen senão mostrarei meu contatos xD
Mas podem testar, estudar e compartilhar o código se desejarem.
Eu não vejo nenhuma utilidade deste código senão o estudo ok pessoal? Então por favor não critiquem dizendo que isso não é útil para nada, pois é útil sim, mas somente para aqueles que desejam aprender.
Adeus, e até mais.

Edit: Aquele objeto na listbox que eu coloquei para excluir e que eu não sabia ao exato o que era, esse objeto se chama ServiceId, é o id da sua conta do msn.

Edit2: Fiz umas melhoras no programinha (acabei me emplgando xD), coloque a opção de mostrar os staus(com cores) e mostrar nome e email.
Download: http://www.mediafire.com/?cv8ohm9q5jrk43q

É pra que visual basic?

Muito legal xD, da pra mandar pros amigos e pegar os contatos deles KkKkK, ai é só mandar pro email usando a dll GoEmail.

Paulo se você conseguir transformar isso aqui

Código:

Dim msncontacts As MessengerAPI.IMessengerContacts = objMSN.MyContacts

Porque no vb6 não tem essa de "= objMSN.MyContacts" na declaração.

Tente objMessenger.MyContacts em vez de objMSN.MyContacts.

Ixii, também não sou bom no VB6, ele é todo bugado no windows 7. Se não tentava ajudar :/.

Private Sub Command1_Click()
Dim ObjMSN As MessengerAPI.Messenger
Dim MSNContact As MessengerAPI.IMessengerContact
Dim MSNContacts As MessengerAPI.IMessengerContacts

Set ObjMSN = New MessengerAPI.Messenger

Set MSNContacts = ObjMSN.MyContacts

List1.Clear

For Each MSNContact In MSNContacts
List1.AddItem (MSNContact.SigninName)

DoEvents
Next
End Sub