Imports System.Net
Imports System.Net.Sockets
Private Shared client As New Socket(AddressFamily.InterNetwork, _
  SocketType.Stream, ProtocolType.Tcp)
Public buffer(32767) As Byte
 
Private Sub sockDataArrival(ByVal ar As IAsyncResult)
        Dim state As StateObject = CType(ar.AsyncState, StateObject)
        Dim client As Socket = state.workSocket
        Dim bytesRead As Integer
 
        Try
            bytesRead = client.EndReceive(ar)
        Catch
            Exit Sub
        End Try
 
        Try
            Dim Data() As Byte = state.buffer
            If bytesRead = 0 Then
                 client.Shutdown(SocketShutdown.Both)
                 client.Close()
                RaiseEvent onDisconnect()
                Exit Sub
            End If
            ReDim state.buffer(32767)
 
            client.BeginReceive(state.buffer, 0, state.BufferSize, 0, AddressOf _
              sockDataArrival, state)
            RaiseEvent onDataArrival(Data, bytesRead)
        Catch
            RaiseEvent onError(Err.Description)
            Exit Sub
        End Try
    End Sub