循环调用线程

有个FOR循环，循环里面调用线程,线程调用过程如下：

Public Sub SendDataReportTo(ByVal mDataReport As MemoryStream, ByVal mIPAddress As String)
        Dim mStream As NetworkStream
        Dim mTcpclient As TcpClient
        Try
            mTcpclient = New TcpClient(mIPAddress, SendPort)
        Catch ex As Exception
            Exit Sub
        End Try
        mStream = mTcpclient.GetStream
        mDataReport.WriteTo(mStream)
        mStream.Close()
        mTcpclient.Close()
    End Sub

当第一次调用过程成功，
第二次调用过程时：
mDataReport.WriteTo(mStream),提示网络流已经关闭，无法写入。
请各位高手指教，急急！！！ --------------------编程问答-------------------- up --------------------编程问答--------------------         mStream.Close() 


你不是已经关闭了么？ --------------------编程问答-------------------- 我是在每一个线程中关闭的，
,我每次线程调用都重新打开了一个
请各位高手帮解决
急急急 --------------------编程问答-------------------- 你的NetWorkStream访问都是同一个服务器和端口吗？如果是的话，强烈建议你不要这样做。而是在多个线程的执行期间总是保持端口的打开，并通过锁机制来控制对NetworkStream的访问限制。

补充：.NET技术 ,  VB.NET