Как открыть НЕблокирующий сокет?

Option Explicit
 
Public Enum AddressFamily
    AF_UNSPEC = 0
    AF_UNIX = 1
    AF_INET = 2
    AF_IMPLINK = 3
    AF_PUP = 4
    AF_CHAOS = 5
    AF_NS = 6
    AF_IPX = AF_NS
    AF_ISO = 7
    AF_OSI = AF_ISO
    AF_ECMA = 8
    AF_DATAKIT = 9
    AF_CCITT = 10
    AF_SNA = 11
    AF_DECnet = 12
    AF_DLI = 13
    AF_LAT = 14
    AF_HYLINK = 15
    AF_APPLETALK = 16
    AF_NETBIOS = 17
    AF_VOICEVIEW = 18
    AF_FIREFOX = 19
    AF_UNKNOWN1 = 20
    AF_BAN = 21
    AF_ATM = 22
    AF_INET6 = 23
    AF_CLUSTER = 24
    AF_12844 = 25
    AF_MAX = 26
End Enum
 
Public Enum SocketType
    ST_STREAM = 1
    ST_DGRAM = 2
    ST_RAW = 3
    ST_RDM = 4
    ST_SEQPACKET = 5
End Enum
 
Public Enum SocketProtocol
    SP_IP = 0
    SP_ICMP = 1
    SP_IGMP = 2
    SP_GGP = 3
    SP_TCP = 6
    SP_PUP = 12
    SP_UDP = 17
    SP_IDP = 22
    SP_ND = 77
    SP_RAW = 255
    SP_MAX = 256
End Enum
 
Public Const DEF_SOCKET_ADDRESSFAMILY As Long = AF_INET
Public Const DEF_SOCKET_TYPE As Long = ST_STREAM
Public Const DEF_SOCKET_PROTOCOL As Long = SP_TCP
 
Public Const FIONREAD = &H8004667F
Public Const FIONBIO = &H8004667E
Public Const FIOASYNC = &H8004667D
 
Public Declare Function WS_Socket Lib 'wsock32.dll' Alias 'socket' (ByVal AddressFamily As Long, ByVal SocketType As Long, ByVal SocketProtocol As Long) As Long
Public Declare Function WS_IOControl Lib 'wsock32.dll' Alias 'ioctlsocket' (ByVal Socket As Long, ByVal Command As Long, argp As Long) As Long
 
Private m_Socket As Long 'in Socket class
Private m_IsBlocked As Boolean 'in Socket class
 
Public Const SOCKET_NOERRORS = 0
Public Const SOCKET_NONBLOCKING As Long = 1
Public Const SOCKET_BLOCKING As Long = 0
 
Sub dd()
    Dim Socket As Long
    Socket = WS_Socket(DEF_SOCKET_ADDRESSFAMILY, DEF_SOCKET_TYPE, DEF_SOCKET_PROTOCOL)
    m_Socket = Socket
    'net proverki !
End Sub
 
Public Property Let IsBlocked(IsBlocked As Boolean)
    Dim Response As Long
    Dim Error As Long
    If IsBlocked = True Then
        Response = WS_IOControl(m_Socket, FIONBIO, SOCKET_BLOCKING)
        If Response <> 0 Then Error = Err.LastDllError: GoTo ERR_HANDLER
    Else
        Response = WS_IOControl(m_Socket, FIONBIO, SOCKET_NONBLOCKING)
        If Response <> 0 Then Error = Err.LastDllError: GoTo ERR_HANDLER
    End If
    m_IsBlocked = IsBlocked
Exit Property
ERR_HANDLER:
    Err.Raise Error, 'Socket:IsBlocked', ErrorDescription(Error)
End Property