Sub cmdPOPen()
		Dim server As String = "Servername"
		Dim user As String = "Benutzer"
		Dim password As String = "Passwort"
		Dim message As String
		Dim send As String
		Dim client As New TcpClient(server, 110)
		stream = client.GetStream()
		sr = New StreamReader(stream)
		txtResponse.Text += sendCommand("?")
		txtResponse.Text += sendCommand("USER " + user)
		txtResponse.Text += sendCommand("PASS " + password)
		txtResponse.Text += sendCommand("STAT")
		txtResponse.Text += sendCommand("RETR 1")		  'hole erstes Mail
		txtResponse.Text += sendCommand("QUIT")
	End Sub
	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(200)
			buffer.Append(sr.ReadLine + vbCrLf)
		Loop
		Return buffer.ToString
	End Function

Mehr Fragen als Wissen....und Spa? daran