ok grazie. sto ragionando su una cosa. se io metto l'acceptsocket il programma si blocca fino a quando non arriva una connessione cosa per me inaccettabile poichè nella form ci sono altre cose da fare. Usando la funzione (anche se sbagliata) bypassavo questo problema e usando un timer come polling le cose "funzionavano". le "" sono poichè in questo punto nella gestione del thread sulla connessione :

Public Sub Leggidati()
Dim buf As Byte() = New Byte(1024) {}
While (socket.Connected)
'If socket.Connected = True Then
If (socket.Poll(-1, SelectMode.SelectRead)) Then
Dim BytedaLeggere As Integer = Me.socket.Receive(buf)
Messaggio = ""
Messaggio = Encoding.UTF8.GetString(buf)
ecc,...


mi riporta lo stesso problema di ieri sul Dim BytedaLeggere As Integer = Me.socket.Receive(buf) come host remoto ha terminato la connessione.
Come posso mettere apposto il problema precedente del pending? cioè come posso aspettare una connessione non bloccando l'esecuzione della form?, e anche questo problema del blocco per la perdita di connessione.
ti ringrazio molto!