Per evitare di bloccare il form basta utilizzare un altro thread per il metodo che accetta le connessioni.

non mi è chiaro...cosa vuoi dire? che tipo di problema?
mi riporta lo stesso problema di ieri sul Dim BytedaLeggere As Integer = Me.socket.Receive(buf) come host remoto ha terminato la connessione.