Imports System.Net.Sockets

Public Class Form1
     Public clientSocket As TcpClient = New TcpClient()
     Public serverStream As NetworkStream


     Private Sub Connect()
             Try
                 clientSocket.Connect("192.168.0.10", "35000")
             Catch
                 AddMessage("----- CONNECTION FAILED! -----")
                 Exit Sub
             End Try
             AddMessage("----- Client Connected! -----")

         End Sub

         Private Sub AddMessage(text As String)
             RichTextBox1.AppendText(">" & text & vbNewLine)
         End Sub

         Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
             Connect()
         End Sub

         Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
             serverStream = clientSocket.GetStream()
             Dim outStream As Byte() =          System.Text.Encoding.ASCII.GetBytes(RichTextBox2.Text)
             serverStream.Write(outStream, 0, outStream.Length)

             Threading.Thread.Sleep(5000)
             Dim inStream(655350) As Byte
             serverStream.Read(inStream, 0, clientSocket.ReceiveBufferSize)
             Dim returnData As String = System.Text.Encoding.ASCII.GetString(inStream)
             AddMessage(returnData)
         End Sub

         Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
             serverStream.Flush()
         End Sub
     End Class

at sp 0
010c

i=3,
>at sp 0
>010c
>1 0C 0A FC

>----- Client Connected! -----
>at sp 0>010c