Do
    ' Ждём, когда выполнятся процедуры завершения
    ' или сообщение будет добавлено в очередь
    Dim dwWaitResult As DWORD = MsgWaitForMultipleObjectsEx( параметры )
    
    Select Case dwWaitResult
        
        Case WAIT_OBJECT_0 + 1
            ' Обрабатываем сообщения из очереди
            ' это обычный стандартный цикл выборки сообщений
            ' ничего сверхъестественного
            GetMessage() или PeakMessage() что больше нравится
            TranslateMessage()
            DispatchMessage()
            
        Case Else
            ' Обработку остальных возвращаемых значений функции MsgWaitForMultipleObjectsEx
            ' Оставляю в качестве домашнего задания
            
    End Select
    
Loop

' Где‐то ранее в коде инициализации:
pRecvOverlapped = Allocate(SizeOf(WSAOVERLAPPED))
pBuffer = Allocate(количество байт)

Function StartRecvOverlapped( _
        параметры на ваше усмотрение _
    )As Boolean
    
    ' Также вам нужно иметь буфер, куда данные будут записаны
    ' Этот буфер нельзя удалять или изменять его содержимое до того
    ' как операция чтения будет завершена
    
    ' Вам будет нужен экземпляр структуры WSAOVERLAPPED
    ' или что‐нибудь унаследованное от неё
    ' Для каждой операции чтения или записи нужен свой отдельный экземпляр WSAOVERLAPPED
    ' Разные экземпляры WSAOVERLAPPED нельзя смешивать
    ' Нельзя пытаться использовать уже занятую WSAOVERLAPPED в другой операции
    
    ' Обнуляем OVERLAPPED перед началом
    ZeroMemory(pRecvOverlapped, SizeOf(WSAOVERLAPPED))
    
    Dim Flags As DWORD = 0
    Dim res As Long = WSARecv( _
        сокет, _
        WSAбуферы куда данные будут записаны, _
        количество буферов, _
        NULL, _
        @Flags, _
        pRecvOverlapped, _
        @ReceiveCompletionROUTINE _ ← указатель на процедуру завершения
    )
    
    If res <> 0 Then
        
        res = WSAGetLastError()
        If res <> WSA_IO_PENDING Then
            ' Ошибка, какая именно ищите в описании кодов ошибок WSA
            Return False
        End If
        
    End If
    
    ' Всё хорошо, операция чтения добавлена в очередь
    Return True
    
End Function

Sub ReceiveCompletionROUTINE( _
        ByVal dwError As DWORD, _ ← код ошибки
        ByVal cbTransferred As DWORD, _ ← сколько данных пришло
        ByVal lpOverlapped As LPWSAOVERLAPPED, _ ← указатель на WSAOVERLAPPED которую вы отправляли при запуске операции чтения
        ByVal dwFlags As DWORD _ ← флаги, не используются
    )
    
    ' Если вы отправляли объект, унаследованный от WSAOVERLAPPED
    ' тут вы его можете получить обратно
    Dim Объект As Объект Ptr = CPtr(Объект Ptr, lpOverlapped)
    
    If dwError <> 0 Then
        ' Ошибка чтения, сокет можно закрывать
        Exit Sub
    End If
    
    ' Теперь вы можете работать с буфером, менять его содержимое или удалять
    
    ' Учитывайте, что данные могут прийти частично
    ' Например, вы запросили 2 гигабайта, а получили только 1 байт
    ' Поэтому ваш буфер должен быть накопительным
    
    ' Вам также может прийти 0 байт, это значит, что другая сторона закрыла соединение
    ' Вам нужно поступить также: вызвать shutdown и closesocket
    ' Это не ошибка, просто достигнут «конец файла»
    
    ' Впрочем, для тех кто использует сокеты это никакой не секрет
    ' pBuffer
    
    ' Запускаете операцию чтения снова
    
    Dim hr As Boolean = StartRecvOverlapped(параметры)
    If hr = False Then
        ' Ошибка запуска операции чтения
    End If
    
End Sub

DisableDebugger
InitNetwork()
ConnectionID = OpenNetworkConnection("google.ru", 80)
If ConnectionID
  t=ElapsedMilliseconds()
  For i=0 To 1000000
    NetworkClientEvent(ConnectionID)
  Next
  MessageRequester("", Str(ElapsedMilliseconds()-t))
  CloseNetworkConnection(ConnectionID)
EndIf

InitNetwork()
ConnectionID = OpenNetworkConnection("google.ru", 80)
If ConnectionID
  ReceiveNetworkData(ConnectionID, @x, SizeOf(x))
  CloseNetworkConnection(ConnectionID)
EndIf