如何判断网络流连接是否有效？

试图用下面的代码判断网络流连接是否有效，但是总是阻塞在 read语句处。请高人帮忙看看，应该如何解决，多谢！'Public Sub IsConnected(ByVal mStream As NetworkStream)  ' Dim buffer() As Byte = New Byte(0) {}  ' Try
  ' If mStream.CanRead Then
  ' mStream.Read(buffer, 0, 0)'阻塞在此处，读0字节也会阻塞吗？
  ' ElseIf mStream.CanWrite Then
  ' mStream.Write(buffer, 0, 0)
  ' End If
  ' Catch ex As Exception
  ' Throw ex
  ' End Try
  'End Sub