Public Class Form1
 
    Dim client As Socket
 
    Dim connectstat As Boolean = False
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        If connectstat = False Then
 
            client = New Socket(AddressFamily.InterNetwork, SocketType.Stream, _
              ProtocolType.IP)
 
            Dim iphost As IPHostEntry = Dns.Resolve("xspace")
 
            Dim serveradre As IPAddress = iphost.AddressList(0)
 
            Dim remoteep As New IPEndPoint(serveradre, 26000)
 
            client.Connect(remoteep)
 
            connectstat = True
 
            Dim msg() As Byte = Encoding.ASCII.GetBytes("Huhu du Server!")
 
            client.Send(msg)
 
        End If
 
    End Sub
 
    Private Sub SendMsgBN_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles SendMsgBN.Click
 
        Dim msg() As Byte = Encoding.ASCII.GetBytes(TextBox1.Text)
 
        client.Send(msg)
 
    End Sub