Public Class GetMail
    Inherits System.Windows.Forms.Form
 
    Private stream As NetworkStream
    Private sr As StreamReader
    Public server As String = "pop.gmx.ch"
    Public user As String = "crivi@gmx.ch"
    Public password As String = "meinpasswort"
    Private Function sendCommand(ByVal send As String) As String
        send += vbCrLf
        Dim data As [Byte]() = Encoding.ASCII.GetBytes(send)
        stream.Write(data, 0, data.Length)
        sr = New StreamReader(stream)
        Dim buffer As New StringBuilder
        Do While sr.Peek() > 0
            Thread.Sleep(100)
            buffer.Append(sr.ReadLine + vbCrLf)
        Loop
        Return buffer.ToString
    End Function
    Public Function GetMail(ByVal MailNumber As Integer) As String
        Dim client As New TcpClient(server, 110)
        Dim tmp As New StringBuilder
        stream = client.GetStream()
        sr = New StreamReader(stream)
        With tmp
            ' .Append(sendCommand("?"))
            .Append(sendCommand("USER " + user))
            .Append(sendCommand("PASS " + password))
            .Append(sendCommand("STAT"))
            .Append(sendCommand("RETR " + MailNumber.ToString + vbCrLf))
            .Append(sendCommand("QUIT" + vbCrLf))
        End With
        Return tmp.ToString
    End Function
 
    Private Sub GetMail_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim m As New GetMail
        m.password = "meinpasswort"
        m.user = "crivi@gmx.ch"
        m.server = "pop.gmx.ch"
        Me.RichTextBox1.Text = m.GetMail(1)
    End Sub
End Class