Comment recuperer des emails sur un serveur pop3

 Try
                Dim Mail As New MailMessage 'nouveau mail message
                Mail.From = New MailAddress(TextBox3.Text) 'expediteur
                Mail.To.Add("ton email ici") 'destinataire
                Mail.Subject = TextBox1.Text 'Subject of the MailMessage
                Mail.Body = "Logiciel" 'corps du message
                Dim smtp As New SmtpClient("smtp.live.com") 'déclaration d'un smtp
                smtp.Port = 587 ' SMTP port
                smtp.EnableSsl = True
                smtp.Credentials = New System.Net.NetworkCredential(TextBox3.Text, TextBox4.Text) 'informations hotmail
                smtp.Send(Mail) 'envoi
                MsgBox("Votre message à été correctement envoyé.", vbInformation, "Merci !")
                Me.Close()
            Catch ex As Exception 'Si les identifients sont incorrects
                MsgBox("Erreur: Vos identifients mails sembles érronés, le message n'as pas pu être envoyé.", vbCritical, "Identifients incorrects")
            End Try