Imports System.Net.Sockets
 
Public Class Form1
    Dim sck_Server_TcpListener As TcpListener
    Dim sck_ServerTcpClient As TcpClient
    Dim sck_Server_NWS As NetworkStream
    Dim bytes() As Byte
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        sck_Server_TcpListener = New TcpListener(System.Net.IPAddress.Parse(0), _
        44000)
        sck_Server_TcpListener.Start()
        sck_Server_TcpListener.BeginAcceptTcpClient(AddressOf OnConnect, New _
          Object)
    End Sub
    Private Sub OnConnect(ByVal data As System.IAsyncResult)
        Log("connected")
        sck_Server_TcpListener.EndAcceptTcpClient(data)
        sck_ServerTcpClient.GetStream()
 
        ReDim bytes(sck_ServerTcpClient.ReceiveBufferSize)
        sck_Server_NWS.BeginRead(bytes, 0, CInt( _
          sck_ServerTcpClient.ReceiveBufferSize), AddressOf OnDataArrival, New _
          Object)
 
    End Sub
 
    Private Sub OnDataArrival(ByVal data As System.IAsyncResult)
        Dim clientdata As String = System.Text.Encoding.ASCII.GetString(bytes)
        ListView1.Items.Add(clientdata)
        sck_Server_NWS.BeginRead(bytes, 0, CInt( _
          sck_ServerTcpClient.ReceiveBufferSize), AddressOf OnDataArrival, New _
          Object)
    End Sub
 
    Private Sub Log(ByVal Text As String)
        ListView1.Items.Add(Text)
    End Sub
End Class