🚀 go-pugleaf

Allora sto cercando di sviluppare un'applicazione che debba gestire un
internet point.
Quindi un server e qualche client. Seguendo guide qua e la sono riuscito a
creare un porta apertra sull'applicazione server, e a farla eseguire come un
thread separato.

Public Class Form1


    Public WithEvents t1 As TcpServer
    Public WithEvents o As New TcpServer
.
.
.

Private Sub Form1_Load....
Dim t1 As New System.Threading.Thread(AddressOf o.main)
t1.Start()
End Sub

Il Problema sta nel fatto che quando all'interno della classe che mi sono
creato scateno l'evento tcpin, non viene eseguito.


Questo dovrebbe gestirmi l'evento nel form

Public Sub SckRX(ByVal data As String) Handles t1.tcpin
Label5.Text = data
End Sub

Questo � il sunto della mia classe

Public Class TcpServer
    'Evento che indica la ricezione di un dato
    Friend Event tcpin(ByVal str As String)
    'Se false porta all'autodistruzione
    Public vita As Boolean
.
.
.
    Public Sub main()
        Dim serv As TcpListener
        serv = Nothing
        vita = True
.
.
.
                While i > 0
                    ' Translate data bytes to a ASCII string.
                    data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)
                    RaiseEvent tcpin(data.ToString)
                    Debug.Write(data.ToString)
                    i = stream.Read(bytes, 0, bytes.Length)
                End While


ovviamente manca un po di codice ma nulla di fondamentale credo. comunque
sia quando do il RaiseEvent tcpin(data.ToString) non succede nulla.
Ovviamente nel debug compagliono i miei dati ma la label non viene
aggiornata. Chi mi sa aiutare?