程 序 修 改 如 下 ： 
     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>