VB.net 通信的简单例子（新手）解决思路

VB.net 通信的简单例子（新手）
我想做个服务端和客户端通信的例子。在服务端和客户端都能够判断对方是否已断了服务。
根据网上的例子，我简单套用了下，但总发觉运行时会有好多问题。
比如1.我将服务端打开，直接关闭，就会报“一个封锁操作被对 WSACancelBlockingCall 的调用中断。”的错误。
2.还有不能判断对方是否已断了服务。
3.当然还有其它潜在的问题。哪位朋友能否帮下忙，帮我修改下。谢了！！

我的代码如下

服务端
    Dim listener As Socket
    '与客户端会话的Socket
    Dim mySocket As Socket
    '服务端的运行状态
    Dim IsRun As Boolean = False
    'start监听接收数据线程
    Dim myThread As Thread
    'detail 监听接收数据
    Dim myThreadService As Thread
    'detail client Ip
    Dim hashIP As New Hashtable

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        myThread = New Thread(AddressOf Listen)
        myThread.Start()
    End Sub

    Public Sub Listen()
        Dim localEndPoint As New IPEndPoint(Net.IPAddress.Parse("127.0.0.1"), 11000)
        '初始化socket
        listener = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        '绑定端口
        listener.Bind(localEndPoint)

        '开始监听
        listener.Listen(10)
        BeginInvoke(New EventHandler(AddressOf AddInfo), "服务端已启动，正在等待连接......")

        Try
            While True
                mySocket = listener.Accept()
                If Not hashIP.Contains(DirectCast(mySocket.RemoteEndPoint, System.Net.IPEndPoint).Address().ToString _
                      + DirectCast(mySocket.RemoteEndPoint, System.Net.IPEndPoint).Port().ToString) Then
                    hashIP.Add(DirectCast(mySocket.RemoteEndPoint, System.Net.IPEndPoint).Address().ToString _
                          + DirectCast(mySocket.RemoteEndPoint, System.Net.IPEndPoint).Port().ToString, mySocket)
                End If
                myThreadService = New Thread(AddressOf service)
                myThreadService.Start(mySocket)
            End While
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Sub service(objMySocket As Object)
        mySocket = objMySocket
        Dim bytes() As Byte = New [Byte](1024) {}
        Dim data As String = String.Empty
        Dim tokens() As String
        Dim bytesRec As Integer
        While True
            Try
                bytesRec = mySocket.Receive(bytes)
            Catch ex As Exception
                '这是为了知道客户端断了的时候，在这里抓错误（不知道这么做是否正确合理）
                BeginInvoke(New EventHandler(AddressOf AddInfo), "client cut")
                If hashIP.Contains(DirectCast(mySocket.RemoteEndPoint, System.Net.IPEndPoint).Address().ToString _
                      + DirectCast(mySocket.RemoteEndPoint, System.Net.IPEndPoint).Port().ToString) Then
                    hashIP.Remove(DirectCast(mySocket.RemoteEndPoint, System.Net.IPEndPoint).Address().ToString _