qui pourra s'il vous plait m'aider à voir plus claire dans ma procedure pour importer les contacts msn avec Dotmsn.dll

la connexion se fait, les contacts ne s'affiche pas!!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 Sub AfficherContact()
        AddHandler MSN.ConversationCreated, AddressOf MSNConversationCreatedhandler
        AddHandler MSN.Nameserver.SignedIn, AddressOf Signed_In
        AddHandler MSN.ConversationCreated, AddressOf Me.ConversationCreated
        AddHandler MSN.Nameserver.AuthenticationError, AddressOf Me.Authenticationerror
        AddHandler MSN.Nameserver.ServerErrorReceived, AddressOf Me.ServerErrorReceived
        MSN.Credentials.ClientID = "msmsgs@msnmsgr.com"
        MSN.Credentials.ClientCode = "Q1P7W2E4J9R8U3S5"
        MSN.Credentials.Account = "username@hotmail.com"
        MSN.Credentials.Password = "MotDePasse"
        MSN.Connect()
        System.Threading.Thread.Sleep(2000)
        If MSN.Connected Then
            Me.TextBox1.Text = " connecté!"
            Contacts = MSN.ContactList
            ContactList = Contacts.All
            For Each Con In MSN.ContactList.All
                lst.Add(Con.Name & " - " & Con.Mail)
            Next
        Else
            Me.TextBox1.Text = " Déconnecté!"
 
        End If
 
        Me.Label1.Text = lst.Count
        Me.GridView1.DataSource = lst
        MSN.Disconnect()
    End Sub
merci