Imports System.Net
Imports System.Net.Socket
 
[...]
 
Public Class Haupt
    Private server As TCPListener
    Private port As Int32 = 9999
    Private localAdress As IPAdress
    Private client As TCPClient
    Private stream As NetworkStream
 
    [...]
 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Try
            localAddress = IPAddress.Parse(ipAdresse)
            server = New TcpListener(localAddress, port)
            server.Start()
            Label1.Text = "ONLINE"
 
            Dim bytes(1024) As Byte
            Dim data As String = Nothing
 
            While True
                client = server.AcceptTcpClient() '***
                data = Nothing
                stream = client.GetStream
                Dim i As Int32
                i = stream.Read(bytes, 0, bytes.Length)
 
                [...]
 
            End While
        Catch ex as SocketException
            MsgBox(ex.ToString)
        Finally
            client.close
        End Try
    End Sub
End Class