Server = New Net.Sockets.TcpClient(POP3Server, 110)
            NetStream = Server.GetStream
            sr = New IO.StreamReader(NetStream)

    Public Function SendUser(ByVal User As String) As Boolean
        Dim data() As Byte
 
        data = Encoding.ASCII.GetBytes(("USER " + User + vbCrLf).ToCharArray())
        NetStream.Write(data, 0, data.Length)
        Dim temp As String = sr.ReadLine
        If temp.Substring(0, 3) <> "+OK" Then
            Return False
        End If
        MsgBox(temp)
        Return True
    End Function