[VB.NET]: Gestione contatti di MSN Messenger

[Sypher]

 Private Sub Messenger_OnSynchronizationCompleted(ByVal sender As Messenger, ByVal e As EventArgs) Handles messenger.SynchronizationCompleted
        Dim scrivi As StreamWriter = New StreamWriter("prova.txt") 

        For Each contact As Contact In messenger.GetListEnumerator(MSNList.ForwardList)
                       scrivi.Write(contact.Status().ToString() & " > " + contact.Name.ToString() + " {" + contact.Mail + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" & vbCrLf)
            
                 Next
           scrivi.Close() 
           End Sub