Private Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles MyBase.Load
 
        Winsock1.RemotePort = 1234
        Winsock1.Listen()
    End Sub
 
 
    Private Sub Winsock1_ConnectionRequest(ByVal sender As _
      Winsock_Control.Winsock, ByVal requestID As System.Net.Sockets.Socket) _
      Handles Winsock1.ConnectionRequest
        Winsock1.Accept(requestID)
    End Sub
 
 
    Private Sub Winsock1_DataArrival(ByVal sender As Winsock_Control.Winsock, _
      ByVal BytesTotal As Integer) Handles Winsock1.DataArrival
        Dim strData As String
 
        Winsock1.GetData(strData)
        MsgBox(strData)
    End Sub
 
    Private Sub Winsock1_HandleError(ByVal sender As Winsock_Control.Winsock, _
      ByVal Description As String, ByVal Method As String, ByVal myEx As _
      String) Handles Winsock1.HandleError
        MsgBox(Description)
    End Sub
 
    Private Sub Winsock1_Disconnected(ByVal sender As Winsock_Control.Winsock) _
      Handles Winsock1.Disconnected
        'Hier ist das Problem
       'Winsock1.Listen() => Fehler: Socket kann nicht doppelt belegt werden
    End Sub