功能：TCP通讯部分想封装到DLL中，目前实现了端与端之间通讯连接正常，发送数据不能连续接收。
dll  部分代码：

Public Event DataArrive(ByVal sender As Tcp, ByRef buf As Byte())

Dim acceptthread As New Thread(AddressOf serverRecdata)

连接时候启动acceptthread  线程

下面是接收数据  含有事件的线程
        Private Sub serverRecdata()
            Try
                While True
                    Thread.Sleep(5)
                    Dim ss As Socket
                    ss = acceptsocket.Accept
                    ss.Receive(bytes)
                    RaiseEvent DataArrive(bytes) '触发事件
                End While
            Catch ex As Exception
                RaiseEvent SocketError(Me, ex)
            End Try
        End Sub




以上代码为vb.net 写的dll部分代码，在前台能通过调用事件DataArrive ，返回参数bytes (循环接收此参数)，数据通过前台处理。


现在情况是不能连续送数据，和接收。