Winsock和SOCKET的问题

[楚狂歌]

在客户端用VB6的Winsock控件
代码

Me.Winsock1.Close
Me.Winsock1.RemoteHost = "x.x.x.x"
Me.Winsock1.RemotePort = 10000
 Me.Winsock1.Connect
Do
    DoEvents
Loop Until Me.Winsock1.State = 7
Me.Winsock1.SendData "haha"
Me.Winsock1.Close

服务器端用.net socket

Private Sub ReceiveAsync(obj As Object)
        Dim msg As String
        Dim b() As Byte = New Byte(1024) {}
        Try
            Dim Listener As Socket = CType(obj, Socket)
            Dim s As Integer = Listener.Receive(b, SocketFlags.None)
            If s = 0 Then
                    msg = Now + "  收到客户端消息(" + Listener.RemoteEndPoint.ToString + "):" + vbNewLine + "Nothing"
                Else
                    msg = Now + "  收到客户端消息(" + Listener.RemoteEndPoint.ToString + "):" + vbNewLine + System.Text.Encoding.UTF8.GetString(b, 0, s)
                End If
....

其他部分代码(不全)

        _Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        _Socket.Bind(New IPEndPoint(IPAddress.Parse("x.x.x.x"), 10000))
        _Socket.Listen(20)

  While True
                Dim Listener As Socket = _Socket.Accept
                Dim t As New Threading.Thread(New Threading.ParameterizedThreadStart(AddressOf ReceiveAsync))
                t.IsBackground = True
                t.Start(Listener)
            End While

我昨天调试的时候，用VB6往服务端发和VB.NET往服务器发都OK

然后今天悲剧了，VB6发数据时不会报错，但服务端收到的byte数组长度为0，VB.net发送则完全ok

这是什么回事？完全找不到原因啊

[楚狂歌]

有没有人帮我看一下啊啊啊啊

[楚狂歌]

找到原因了...

Me.Winsock1.SendData "haha"
Me.Winsock1.Close

这里close的太快了....