我正在制作一个简单的消息应用程序，但出现以下异常错误：System.Net.Sockets.SocketException 我使用了TCPListener和TCPClient。 这是我来自服务器项目TCPControl的代码。

Public Event MessageReceived(sender As TCPControl,Data As String)


' Server Config
Public ServerIP As IPAddress = IPAddress.Parse("10.10.10.1")
Public ServerPort As Integer = 64555
Public Server As TcpListener

Private CommThread As Thread
Public IsListening As Boolean = True

' Clients
Private Client As TcpClient
Private ClientData As StreamReader

Public Sub New()
    Server = New TcpListener(ServerIP,ServerPort)
    Server.Start()

    CommThread = New Thread(New ThreadStart(AddressOf Listening))
    CommThread.Start()
End Sub

Private Sub Listening()
    ' Create Listener Loop
    Do Until IsListening = False
        ' accept Iconming Connetions
        If Server.Pending = True Then
            Client = Server.acceptTcpClient
            ClientData = New StreamReader(Client.GetStream)
        End If


        ' Raise Event For Incoming Messages
        Try
            RaiseEvent MessageReceived(Me,ClientData.ReadLine)
        Catch ex As Exception

        End Try

        ' Reduce CPU Usage
        Thread.Sleep(100)

    Loop
End Sub

我正在使用System.IO，System.Net，System.Net.Sockets和System.Threading 这是异常错误的屏幕截图 Exception Error Image

启动服务器时出现该错误

Public Sub New()
    Server = New TcpListener(ServerIP,ServerPort)
    Server.Start()

    CommThread = New Thread(New ThreadStart(AddressOf Listening))
    CommThread.Start()
End Sub

我尝试搜索并尝试一下，但是什么也没有。