Chat- server Application on statice IP

Imports System.Net.Sockets
Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Drawing.Imaging
Imports System.Threading
Public Class Form1

    Private m_sock As Socket
    Private m_byBuff As Byte() = New Byte(36000) {}
    Dim byteDateLine As Byte()
    Dim data As IDataObject
    Private Sub frmWebCam_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            If m_sock IsNot Nothing AndAlso m_sock.Connected Then
                m_sock.Shutdown(SocketShutdown.Both)
                System.Threading.Thread.Sleep(10)
                m_sock.Close()
            End If
            m_sock = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
            Dim epServer As New IPEndPoint(IPAddress.Parse(txip.Text), 5502)
            m_sock.Blocking = False
            Dim onconnect__1 As New AsyncCallback(AddressOf OnConnect)
            m_sock.BeginConnect(epServer, onconnect__1, m_sock)
        Catch ex As Exception
        End Try
    End Sub
    Public Sub OnConnect(ByVal ar As IAsyncResult)
        Dim sock As Socket = DirectCast(ar.AsyncState, Socket)
        Try
            If sock.Connected Then
                SetupRecieveCallback(sock)
            Else
                MsgBox("Unable to connect to remote machine Connect Failed!")
            End If
        Catch ex As Exception
            MsgBox(ex.Message & "Unusual error during Connect!")
        End Try
    End Sub
    Public Sub OnRecievedData(ByVal ar As IAsyncResult)
        Dim sock As Socket = DirectCast(ar.AsyncState, Socket)
        Try
            Dim nBytesRec As Integer = sock.EndReceive(ar)
            If nBytesRec < 0 Then
                sock.Shutdown(SocketShutdown.Both)
                sock.Close()
            ElseIf nBytesRec > 0 Then
                Dim sRecieved As String = Encoding.ASCII.GetString(m_byBuff, 0, nBytesRec)
                MsgBox(sRecieved)
            End If

        Catch ex As Exception
        Finally
            SetupRecieveCallback(sock)
        End Try
    End Sub

    Public Sub SetupRecieveCallback(ByVal sock As Socket)
        Try
            Dim recieveData As New AsyncCallback(AddressOf OnRecievedData)
            sock.BeginReceive(m_byBuff, 0, m_byBuff.Length, SocketFlags.None, recieveData, sock)
        Catch ex As Exception
            ' MessageBox.Show(Me, ex.Message, "Setup Recieve Callback failed!")
        End Try
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim DateLine As [Byte]() = Encoding.ASCII.GetBytes(Environment.MachineName & " :- " & txport.Text.ToCharArray())
        m_sock.Send(DateLine, DateLine.Length, 0)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            If m_sock IsNot Nothing AndAlso m_sock.Connected Then
                m_sock.Shutdown(SocketShutdown.Both)
                System.Threading.Thread.Sleep(10)
                m_sock.Close()
            End If
            m_sock = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
            Dim epServer As New IPEndPoint(IPAddress.Parse(txip.Text), 5502)
            m_sock.Blocking = False
            Dim onconnect__1 As New AsyncCallback(AddressOf OnConnect)
            m_sock.BeginConnect(epServer, onconnect__1, m_sock)
        Catch ex As Exception
        End Try
    End Sub
End Class

Imports System.Net.Sockets
Imports System.Net
Imports System.Threading

Public Class Service1
    Dim WithEvents atimer As New System.Timers.Timer(760)
    Public Shared m_aryClients As New ArrayList()
    Dim listener As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)

    Protected Overrides Sub OnStart(ByVal args() As String)
    End Sub
    Private Sub TIMTICK(ByVal o As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles atimer.Elapsed
    End Sub
    Public Sub New()
        InitializeComponent()
        listener.Bind(New IPEndPoint(Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0), 5502))
        listener.Listen(10)
        listener.BeginAccept(New AsyncCallback(AddressOf OnConnectRequest), listener)
        atimer.Start()
        atimer.Enabled = True
    End Sub

    Protected Overrides Sub OnStop()
        listener.Close()
    End Sub
    Public Sub OnConnectRequest(ByVal ar As IAsyncResult)
        Try
            Dim listener As Socket = DirectCast(ar.AsyncState, Socket)
            NewConnection(listener.EndAccept(ar))
            listener.BeginAccept(New AsyncCallback(AddressOf OnConnectRequest), listener)
        Catch ex As Exception

        End Try
    End Sub
    Public Sub NewConnection(ByVal sockClient As Socket)
        Try
            Dim client As New SocketChatClient(sockClient)
            m_aryClients.Add(client)
            client.SetupRecieveCallback(Me)

        Catch ex As Exception

        End Try
    End Sub
    Public Sub OnRecievedData(ByVal ar As IAsyncResult)
        Dim client As SocketChatClient = ar.AsyncState
        Dim aryRet = client.GetRecievedData(ar)
        Try
            If aryRet.Length < 1 Then
                client.Sock.Close()
                m_aryClients.Remove(client)
                Return
            Else
                For Each clientSend As SocketChatClient In m_aryClients
                    Try

                        clientSend.Sock.Send(aryRet, aryRet.Length, 0)
                    Catch
                        clientSend.Sock.Close()
                        m_aryClients.Remove(clientSend)
                    End Try
                Next
            End If
        Catch ex As Exception
        Finally
            client.SetupRecieveCallback(Me)
        End Try
    End Sub
    Friend Class SocketChatClient
        Private m_sock As Socket
        Private m_byBuff As Byte() = New Byte(36000) {}
        Public Sub New(ByVal sock As Socket)
            m_sock = sock
        End Sub
        Public ReadOnly Property Sock() As Socket
            Get
                Return m_sock
            End Get
        End Property
        Public Sub SetupRecieveCallback(ByVal app As Service1)
            Try
                Dim recieveData As New AsyncCallback(AddressOf app.OnRecievedData)
                m_sock.BeginReceive(m_byBuff, 0, m_byBuff.Length, SocketFlags.None, recieveData, Me)
            Catch ex As Exception
                Console.WriteLine("Recieve callback setup failed! {0}", ex.Message)
            End Try
        End Sub
        Public Function GetRecievedData(ByVal ar As IAsyncResult) As Byte()
            Dim nBytesRec As Integer = 0
            Try
                nBytesRec = m_sock.EndReceive(ar)
            Catch
            End Try
            Dim byReturn As Byte() = New Byte(nBytesRec - 1) {}
            Array.Copy(m_byBuff, byReturn, nBytesRec)
            Return byReturn
        End Function
    End Class
End Class