raga, impazzendo cn sto programma sn arrivato ad una soluzione, c'è penso
ho provato a vedere se il programma mi scrive i contatti su un file e ho fatto
codice:
 Private Sub Messenger_OnSynchronizationCompleted(ByVal sender As Messenger, ByVal e As EventArgs) Handles messenger.SynchronizationCompleted
        For Each contact As Contact In messenger.GetListEnumerator(MSNList.ForwardList)
            Dim scrivi As StreamWriter = New StreamWriter("prova.txt")
            scrivi.Write(contact.Status().ToString() & " > " + contact.Name.ToString() + " {" + contact.Mail + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" & vbCrLf)
            scrivi.Close()
                 Next
           End Sub
Il programma mi dà l'ultimo contatto dela lista...come faccio a far mettere tt i contatti??...
cmq successivamente cn il metodo ReadToEnd li metto tutti sulla ListBox...