' API-Funktionen -------------------------------------------------------------
Private Declare Function OpenEvent Lib "kernel32" Alias "OpenEventA" _
        (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
        ByVal lpName As String) As Long
 
Private Declare Function WaitForSingleObject Lib "kernel32" _
        (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
 
Private Declare Function CloseHandle Lib "kernel32" _
        (ByVal hObject As Long) As Long
 
[...]
 
hDataArrival = OpenEvent(SYNCHRONIZE, False, Winsock1_DataArrival")
evtDataArrival = WaitForSingleObject(hDataArrival, IVAL)
evtDataArrival = CloseHandle(hDataArrival)