你可以使用Winsock控件这么做： 
     Private Sub TCP1_DataArrival(Index As Integer, ByVal bytesTotal As Long) 
     Dim vta 
     Dim bt() As Byte 
     TCP1(Index).GetData vta, vbArray + vbByte 
     bt = vta 
     ... 
     End Sub 
<END>     
    