Public Class ClassConnect

    '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
    '               NO ERORRI RAM
    '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

    Public port As UInteger
    Public clientgen As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
    Public Evento As New ManualResetEvent(False)
    Dim p As New AsyncCallback(AddressOf accetta)

    Public Sub accetta(ByVal ar As IAsyncResult)
        Stop  // Qui accetti la connessione e lanci il thread di gestione .. ad ogni connessione ricevuta rilanci la accept
  clientgen.BeginAccept(p, clientgen)
    End Sub

    Public Sub parti()
        Try
            clientgen.Bind(New IPEndPoint(IPAddress.Parse("0.0.0.0"), port))
            clientgen.Listen(2000)
            clientgen.BeginAccept(p, clientgen)
            Console.WriteLine("Start To Listen on port: " & port)
            Console.ReadLine()
        Catch
            Console.WriteLine("Failed Listen on port: " & port)
        End Try
    End Sub

End Class