Private GMXSock As Socket
 
    Private Empfangthread As Thread
    Private GMX As IPHostEntry
    Private GMX_IP As IPAddress
    Private EP As IPEndPoint
 
        GMX = Dns.Resolve("pop.gmx.net")
 
        GMX_IP = GMX.AddressList(0) 
        EP = New IPEndPoint(GMX_IP, 110)
 
 
        GMXSock = New Socket(AddressFamily.InterNetwork, SocketType.Stream, _
          ProtocolType.Tcp)
        Passwort = txtPasswort.Text
        Dim Bytes(1024) As Byte
        Dim msg As String
        Dim UserAuto As Boolean
        Dim Passwortauto As Boolean
        Try
 
 
 
            'Thread starten
            Empfangthread = New Thread(AddressOf Receive_Data)
            Empfangthread.Start()
 
 
            'Mit dem Pop3 Server verbinden
            GMXSock.Connect(EP)
 
            'User angeben
            Bytes = Encoding.ASCII.GetBytes("USER xyz@gmx.net" + _
              Environment.NewLine)
            GMXSock.Send(Bytes)
 
            'Passwort übergeben
              Bytes = Encoding.ASCII.GetBytes("PASSWORT abcdefghijkl" + _
                Environment.NewLine)
            GMXSock.Send(Bytes)