Public Class Form1
    Inherits System.Windows.Forms.Form
 
#vom FormDesigner generierter Code
 
    Private TcpClient As New System.Net.Sockets.TcpClient("pop.gmx.net", 110)
    Private StreamReader As System.IO.StreamReader
    Private StreamWriter As System.IO.StreamWriter
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles MyBase.Load
        StreamReader = New System.IO.StreamReader(TcpClient.GetStream())
        StreamWriter = New System.IO.StreamWriter(TcpClient.GetStream())
 
        Dim arrived As String = StreamReader.ReadLine()
        If arrived <> "" Then
            txtOut.Text &= arrived & vbCrLf
        End If
    End Sub
 
    Private Sub cmdSend_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles cmdSend.Click
        StreamWriter.WriteLine(txtSend.Text)
 
        Dim arrived As String = StreamReader.ReadLine()
        If arrived <> "" Then
            txtOut.Text &= arrived & vbCrLf
        End If
    End Sub
End Class