01.Try
02.
03.
04. Dim networkStream As NetworkStream = Client.GetStream()
05.
06. If networkStream.CanWrite And networkStream.CanRead Then
07.
08. Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(comm + vbCrLf)
09.
10. networkStream.Write(sendBytes, 0, sendBytes.Length)
11.
12.
13.
14. Dim bytes(Client.ReceiveBufferSize) As Byte
15. networkStream.Read(bytes, 0, CInt(Client.ReceiveBufferSize))
16.
17.
18. returndata = Encoding.ASCII.GetString(bytes, 0, bytes.Length)
19. Else
20. If Not networkStream.CanRead Then
21.
22. Client.Close()
23. networkStream.Close()
24. Else
25. If Not networkStream.CanWrite Then
26.
27. Client.Close()
28. networkStream.Close()
29. End If
30. End If
31. End If
32. Catch err As Exception
33. MsgBox(err.Message, MsgBoxStyle.Exclamation)
34. End Try
