Imports System.Text
Imports System.Net
Imports System.Net.Sockets
Public Class Form1
    Dim hostsocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, _
      ProtocolType.IP)
    Dim clientsocket As Socket
    Dim serverstat As Integer = 0
    Private Sub HostBN_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles HostBN.Click
        Dim iphost As IPHostEntry = Dns.Resolve(Dns.GetHostName())
        Dim ip As IPAddress = iphost.AddressList(0)
        Dim port As Integer = 26000
        Dim endpoint As New IPEndPoint(ip, port)
        hostsocket.Bind(endpoint)
        hostsocket.Listen(1)
        serverstat = 1
        ServerStatLB.Text += " " & serverstat
        AcceptBGW.RunWorkerAsync()
    End Sub
    Private Sub AcceptBGW_DoWork(ByVal sender As System.Object, ByVal e As _
      System.ComponentModel.DoWorkEventArgs) Handles AcceptBGW.DoWork
        Do While serverstat = 1
            clientsocket = hostsocket.Accept()
            Dim bytes(clientsocket.ReceiveBufferSize) As Byte
            clientsocket.Receive(bytes)
            Dim message As String = GetMessage(Encoding.ASCII.GetString(bytes))
            If message.StartsWith("con") Then
                message = message.Remove(0, 3)
                ClientsLB.Items.Add(message)
                Dim responsemessage As String = message & " you are now" & _
                  "connected!"
                Dim rbytes() As Byte = Encoding.ASCII.GetBytes(responsemessage)
                clientsocket.Send(rbytes)
            End If
        Loop
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        CheckForIllegalCrossThreadCalls = False
    End Sub
    Public Function GetMessage(ByVal Message As String) As String
        Dim mess As String = Nothing
        For i As Integer = 0 To Message.Length - 1
            If Message(i) = Nothing Then
                Exit For
            Else
                mess += Message(i)
            End If
        Next
        Return mess
    End Function
End Class