源代码：
Dim server As String = "192.168.1.253"
Dim port As Int32 = 23
Dim client As New TcpClient(server, port)
Dim message As String = "telnet 192.168.1.253"
Dim data As [Byte]() = System.Text.Encoding.Default.GetBytes(message)
Dim data1 As [Byte]() = System.Text.Encoding.Default.GetBytes(message)
Dim stream As NetworkStream = client.GetStream()
stream.Write(data, 0, data.Length)
Console.WriteLine("Sent: {0}", message)
data1 = New [Byte](10000) {}
Dim responseData As [String] = [String].Empty
MsgBox(1) '这里是问题所在！！
Dim bytes As Int32 = stream.Read(data1, 0, data1.Length)
responseData = System.Text.Encoding.Default.GetString(data1, 0, bytes)
Console.WriteLine("Received: {0}", responseData)
TextBox2.Text = TextBox2.Text + responseData
client.Close()
Catch ex As ArgumentNullException
Console.WriteLine("ArgumentNullException: {0}", e)
Catch ex As SocketException
Console.WriteLine("SocketException: {0}", e)
End Try
Console.WriteLine(ControlChars.Cr + " Press Enter to continue...")
Console.Read()
////////////////////////////////////////////////
以上是源程序，执行结果：
??????
*********************************************************
* All rights reserved (1997-2004) *
* Without the owner's prior written consent, *
*no decompiling or reverse-engineering shall be allowed.*
*********************************************************
Login authentication
Username:
/////////////////////////////////////////////////
如果将程序中的MsgBox(1)去掉，执行结果就变成了：
??????
*********************************************************
* All rights reserved (1997-2004) *
* Without the owner's prior written consent, *
*no decompiling or reverse-engineering shall be allowed.*
*********************************************************
少了一部分回传数据，希望高手帮忙知道！！

自己顶一下，希望高手不吝赐教！！