Imports System.Net
Imports System.Text
Public Class Form1
    Dim tcpClient As New System.Net.Sockets.TcpClient()
    Dim networkStream
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        ToolStripStatusLabel1.Text = "Disconnectet"
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Try
 
 
            tcpClient.Connect(TextBox1.Text, TextBox3.Text)
            Dim networkStream As Sockets.NetworkStream = tcpClient.GetStream
            ToolStripStatusLabel1.Text = "Connected to: " & TextBox1.Text & ":" _
              & TextBox3.Text
        Catch ex As Exception
            ToolStripStatusLabel1.Text = "Disconnectet"
        End Try
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
 
 
        Console.WriteLine("Client verbunden!")
 
        Dim data As Byte() = System.Text.Encoding.ASCII.GetBytes("FNORD")
        networkStream.Write(data, 0, data.Length)
        If Not TextBox2.Text = Nothing Then
 
            Try
                Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes( _
                  TextBox2.Text)
                networkStream.Write(sendBytes, 0, sendBytes.Length)
                ToolStripStatusLabel1.Text = TextBox2.Text & "was send to " & _
                  TextBox1.Text & ":" & TextBox3.Text
            Catch
                ToolStripStatusLabel1.Text = "Could not send " & TextBox2.Text
            End Try
        End If
 
 
    End Sub
 
 
End Class

Er kam, er sah, er zerst?rte - Der MENSCH