服务器 - 客户端聊天编程

Question

我试图按照本文底部提供的链接来学习本教程。然而，它继续在客户端遇到麻烦。

导致错误的行是：

serverStream.Read(inStream, 0, buffSize)

我得到的错误如下：

  

System.ArgumentOutOfRangeException：长度不能小于零。

我试图解决这个问题，但我偶尔会遇到程序员，所以即使我能够隔离代码挂起的地方，我也不确定原因。

有人可以帮我解决这个问题吗？

Sub，错误：

Private Sub getMessage()
    For infiniteCounter = 1 To 2
        infiniteCounter = 1
        serverStream = clientSocket.GetStream()
        Dim buffSize As Integer
        Dim inStream(10024) As Byte
        buffSize = clientSocket.ReceiveBufferSize
        serverStream.Read(inStream, 0, buffSize)
        Dim returndata As String = _
        System.Text.Encoding.ASCII.GetString(inStream)
        readData = "" + returndata
        msg()
    Next
End Sub

完整代码位于： http://vb.net-informations.com/communications/vb.net_chat_server_program.htm