Le Soluzioni più semplici sono quelle che alle 23 non ti vengono mai fuori !!!

Comunque ora funziona al 75% ma mi da un paio di errori:

1) Se io chiudo il client e poi tento di riaprilo mi dice "Rifiuto persistente del computer a cui ci si vuole collegare"

2) mi stampa tutto corretto ma quando il messaggio è "calldan" dovrebbe aprirmi un form particolare e non scriverlo a video.
codice:
If client.Connected Then
            If client.Available > 0 Then
                Dim bytes(client.ReceiveBufferSize) As Byte
                netstr.Read(bytes, 0, client.ReceiveBufferSize)
                s = System.Text.ASCIIEncoding.ASCII.GetString(bytes)
                If s = "calldan" Then
                    frmled.Show()
                    frmled.tmrled.Start()
                Else
                    MsgBox(s)
                End If
            End If
        End If
Questo è il form che deve apparire

codice:
Public Class frmled
    Dim lampeggio As Boolean = True
    Private Sub tmrled_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrled.Tick
        If lampeggio = True Then
            Me.Visible = True
            lampeggio = False
        Else
            Me.Visible = False
            lampeggio = True
        End If
    End Sub

    Private Sub imgled_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles imgled.Click

    End Sub

    Private Sub imgled_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles imgled.DoubleClick
        tmrled.Stop()
    End Sub

    Private Sub frmled_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim pt As Point
        pt = New Point(My.Computer.Screen.WorkingArea.Width - 210, 0)
        Me.Location = pt

    End Sub
End Class