[VB.NET]救命,mStream.Write()执行完后,内存不能释放.急呀.

<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
救命,mStream.Write()执行完后,内存不能释放.急呀.
下面是贴的函数,目的就是想拷贝一些数据到MemoryStream中,
执行完For循环后,内存增加了几百M. 但无论如何也释放不了. 除非关闭程序.
请教有没有人知道程序的毛病是出在哪里呀?! 在线等,解决完立刻给分!
谢谢呀!

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mStream As MemoryStream
Dim nData As Integer = 40960
Dim iPtr As Integer
Dim PACKET_SIZE As Int16 = 4096
Dim readBuffer(PACKET_SIZE) As Byte

For iPtr = 0 To PACKET_SIZE - 1
readBuffer(iPtr) = 255
Next

mStream = New MemoryStream
While nData > 0
mStream.Write(readBuffer, 0, PACKET_SIZE)
nData -= 1
End While

mStream.Close()
mStream.Dispose()
End Sub
__________________________________________________________________________
帮顶的也有分.不够再加!
急.
__________________________________________________________________________
又见ＶＢ　帮顶接分！
__________________________________________________________________________
UP UP UP 抬起头
__________________________________________________________________________
up
__________________________________________________________________________
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mStream As System.IO.MemoryStream
Dim nData As Integer = 40960
Dim iPtr As Integer
Dim PACKET_SIZE As Int16 = 4096
Dim readBuffer(PACKET_SIZE) As Byte

For iPtr = 0 To PACKET_SIZE - 1
readBuffer(iPtr) = 255
Next

mStream = New System.IO.MemoryStream
While nData > 0
mStream.Write(readBuffer, 0, PACKET_SIZE - 1)
nData -= 1
End While

''mStream.Flush()
mStream.SetLength(0)
mStream.Close()
mStream = Nothing

''强调进行垃圾回收
GC.Collect()
End Sub

对你的代码进行了点改动:
1.mStream.Write(readBuffer, 0, PACKET_SIZE - 1)
2. GC.Collect()
__________________________________________________________________________
结帐,谢谢楼上的几位朋友!
__________________________________________________________________________