Imports System.Net
Imports System.Net.Sockets
Imports System.IO
 
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
 ' Create a TcpClient.
 
        Dim port As Int32 = 9300
        Dim client As New TcpClient("11.111.11.11", 9300)
 
 
        ' Translate the passed message into ASCII and store it as a Byte array.
        Dim Message = ""
        Dim data As [Byte]() = System.Text.Encoding.ASCII.GetBytes(Message)
 
        ' Get a client stream for reading and writing.
        '  Stream stream = client.GetStream();
 
         Dim stream As NetworkStream = client.GetStream()
 
        ' Receive the TcpServer.response.
        ' Buffer to store the response bytes.
        data = New [Byte](256) {}
 
        ' String to store the response ASCII representation.
        Dim responseData As [String] = [String].Empty
 
        ' Read the first batch of the TcpServer response bytes.
 
        Dim bytes As Int32 = stream.Read(data, 0, data.Length)
        responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes)
        TextBox1.Text = responseData
 
    End Sub
 
End Class