If （I = WAIT_FAILED） Then
MsgBox “error WaitForMultipleObjectsEx”
RecvPacket = SYSERR
Exit Function
End If
For J = 0 To RECV_MAX - 1
If （EventTab（I） = RecvTab（J）.hEvent） Then Exit For
Next
K = J
If （RecvTab（K）.Type = nREAD And RecvTab（K）.Active = True） Then
Call GetOverlappedResult（hVxD， RecvTab（K）.Overlap， RecvTab（K）.Length， 0）
If （RecvTab（K）.Length 》 BUFFER_SIZE） Then RecvTab（K）.Length = BUFFER_SIZE
Call CopyMemory（OutBuff（0）， RecvTab（K）.Buffer（0）， RecvTab（K）.Length）
len1 = RecvTab（K）.Length
Call CloseHandle（RecvTab（K）.hEvent）
For J = I + 1 To RECV_MAX - 1
EventTab（I） = EventTab（J）
I = I + 1
Next
hEvent = CreateEvent（0， 1， 0， vbNullString）
If （hEvent = 0） Then
MsgBox “ERROR CREATEEVENT”