³Ì Ðò ÐÞ ¸Ä Èç ÏÂ £º 
     Err.Clear 
     On Error Resume Next 
     For i = 0 To UBound(IPAddress) 
     Winsock_bc.Protocol = sckUDPProtocol 
     Winsock_bc.RemotePort = 4000 
     Winsock_bc.LocalPort = 4000 
     Winsock_bc.RemoteHost = RemoteHost(i) 
     Winsock_bc.Bind nLocalPortIPAddress(i) 
     If Err.Number = 0 Then 
     IsOneWorking = True 
     Exit For 
     Else 
     Winsock_bc.Close 
     Err.Clear 
     End If 
     Next 
     
     If NOT IsOneWorking Then 
     MsgBox "µ± Ç° Íø Âç ÖÐ Ã» ÓÐ Ò» ¿é Íø ¿¨ ¿É ÓÃ !", vbOKOnly, "Íø Âç Á¬ ½Ó ´í Îó " 
     End If 
<END>