[VB.NET]: Gestione contatti di MSN Messenger

[Napster]

Salve a tutti...è da 3giorni a qst parte k ho un grosso enigma...ho una funzione, se faccio così funziona:

  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)
            MsgBox(contact.Status.ToString & " > " + contact.Name.ToString + " {" + contact.Mail.ToString + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "")
        Next
        For Each contact As Contact In messenger.ReverseList
            MsgBox(contact.Status.ToString & " > " + contact.Name.ToString + " {" + contact.Mail.ToString + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "")
        Next
        For Each contact As Contact In messenger.BlockedList
            MsgBox(contact.Status.ToString & " > " + contact.Name.ToString + "(Bloccato)" + " {" + contact.Mail.ToString + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "")
        Next
        For Each contact As Contact In messenger.AllowedList
            MsgBox(contact.Status.ToString & " > " + contact.Name.ToString + " {" + contact.Mail.ToString + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "")
        Next
    End Sub

Se Faccio Così Il Programma Non Funziona e Crasha:

  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)
            ListBox.Items.Add(contact.Status.ToString & " > " + contact.Name.ToString + " {" + contact.Mail.ToString + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & ""))
        Next
        For Each contact As Contact In messenger.ReverseList
            ListBox.Items.Add(contact.Status.ToString & " > " + contact.Name.ToString + " {" + contact.Mail.ToString + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & ""))
        Next
        For Each contact As Contact In messenger.BlockedList
           ListBox.Items.Add(contact.Status.ToString & " > " + contact.Name.ToString + "(Bloccato)" + " {" + contact.Mail.ToString + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & ""))
        Next
        For Each contact As Contact In messenger.AllowedList
           ListBox.Items.Add(contact.Status.ToString & " > " + contact.Name.ToString + " {" + contact.Mail.ToString + "}" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & ""))
        Next
    End Sub

mi sapete spiegare il xkè??