Private Sub Verbinden_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Verbinden.Click
 
'Sich mit GMX verbinden
 
        Dim Bytes(1024) As Byte
        'Es wird ein IPHostEntry zurückgegeben, welches ein Array aus IPAddress 
        ' enthält
        GMX = Dns.Resolve("pop.gmx.net")
 
        GMX_IP = GMX.AddressList(0) 'Aus dem Pool die erste ermittelte IP ( 
        ' IPAddress)                angeben
        EP = New IPEndPoint(GMX_IP, 110)
 
 
        'GMXSock = New Socket(AddressFamily.InterNetwork, SocketType.Stream, 
        ' ProtocolType.Tcp)
        Empfangthread = New Thread(AddressOf Data_Receive)
        Empfangthread.Start()
        MsgBox("Thread = " + Empfangthread.IsAlive.ToString)
 
        GMXSock.Connect(EP)
 
    End Sub
 
 
    Private Sub Data_Receive()
 
'Thread  zum EMpfangen der Nachrichten
 
   Dim Bytes(1024) As Byte
        Dim counterFromGmx As Int32 'Zählt die empfangenden Bytes
        'Daten = ""
 
        Do While True
            If GMXSock.Connected = True Then
                Try
 
                    counterFromGmx = GMXSock.Receive(Bytes)
                    'If counterFromGmx > 0 Then MsgBox(counterFromGmx.ToString)
                    Daten = Encoding.ASCII.GetString(Bytes, 0, counterFromGmx)
                    TextBox1.Text += Daten
 
 
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            End If
        Loop
 
    End Sub
 
    Private Sub Senden_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
'Eingegebene Befehle werden nach GMX versenden
 Dim Bytes(1024) As Byte
        TextBox1.Text = ""
        TextBox1.Refresh()
        Bytes = Encoding.ASCII.GetBytes(TxtBefehl.Text + Environment.NewLine)
        GMXSock.Send(Bytes)
    End Sub