Nothing

winsock的缓冲空间设置的太少了或是数组长度设置不对，应当一次一次的接收，多接收几次，不要一下子接收。

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    On Error Resume Next
    Dim bData() As Byte
    ReDim bData(bytesTotal)
    Winsock1.GetData bData

注意这样写代码，先要将数组设定成DataArrival事件返回的长度。