dll 调用包含线程的事件 同时有返回参数

[chenyun1123]

功能：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 (循环接收此参数)，数据通过前台处理。


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