【www.tuzhexing.com--教育考试】
End Function
Function RecvPacket（ByVal hVxD As Long， ByVal pbuf As Variant） As Long
Dim hEvent As Long
Dim I As Long， J As Long， K As Long
Dim len1 As Long
If （bFirst） Then
For I = 0 To RECV_MAX - 1
hEvent = CreateEvent（0， 1， 0， vbNullString）
If （hEvent = 0） Then
MsgBox “ERROR”
RecvPacket = SYSERR
Exit Function
End If
RecvTab（I）.hEvent = hEvent
RecvTab（I）.Size = BUFFER_SIZE
RecvTab（I）.Active = True
RecvTab（I）.Type = nREAD
EventTab（I） = hEvent
Call RecvStart（hVxD， RecvTab（I））
Next
bFirst = False
End If
I = WaitForMultipleObjectsEx（RECV_MAX， EventTab（0）， 0， INFINITE， 0）