一个简单的函数，一点疑问大家帮我看看，急啊

Question

Private Function fb_Connected() As Boolean
    On Error Resume Next
    Me.Winsock1.RemoteHost = uConfig.strIp
    Me.Winsock1.RemotePort = uConfig.nPort
    nConnected = 0
    Winsock1.Connect
    Do While nConnected = 0
        DoEvents
    Loop
    If nConnected = 1 Then
        fb_Connected = True
    Else
        fb_Connected = False
    End If
    Debug.Print nConnected
    Winsock1.Close
End Function别人写的判断SOCKET是否连接的函数，有个地方：
   Do While nConnected = 0
        DoEvents
    Loop
这里干啥用？我测了一下，这段大概要耗18秒左右，有什么用？

Answer 1

监听端口，doenvents的意思是其他进程可以进行，不独占
当监听到连接后，其他进程应该是把nConnected置为1，这地将跳出循环
然后下面那个if用来输出连接状态

Answer 2

DoEvents是把CPU的處理權交給其它的進程
其作用就是不讓本進程獨占CPU以至造成假死的情況