类似QQ的聊天软件（VB.NET）部分代码：PrivateSubEstablishConnection()ToolStripStatusLabel1.Text="正在连接到服务器"serveraddress=ServerIP.Text'服务器IP地址Tryclientsocket=NewTcpClient(serveraddress,serverport)ns=clientsocket.GetStream()sr=NewStreamReader(ns)