Egy olyan alkalmazáson dolgozom, ami áll egy szerverből és egy kliensből és lényegében ez egy cset, de baja van a Server. Start () -ommal. Mit írjak át? (Többi lent)

Imports System.IO

Imports System.Net

Imports System.Net.Sockets

Imports System.Threading

Public Class TCPControl

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

' SERVER CONFIG

Public ServerIP As IPAddress = IPAddress.Parse("89.132.139.47")

Public ServerPort As Integer = 64555

Public svc As TcpListener

Private CommThread As Thread

Public IsListening As Boolean = True

' CLIENTS

Private Client As TcpClient

Private ClientData As StreamReader

Public Sub New()

svc = New TcpListener(ServerIP, ServerPort)

svc.Start()

CommThread = New Thread(New ThreadStart(AddressOf Listening))

CommThread.Start()

End Sub

Private Sub Listening()

' CREATE LISTENER LOOP

Do Until IsListening = False

' ACCEPT INCOMING CONNECTIONS

If svc.Pending = True Then

Client = svc.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

End Class

Ez a z egész és azt is írja mellé, hogy SocketException was unhandled. Kérlek segítsetek.