C# / VB.NET - VBNET Problema con socket e form Mdi

salve, ho una form Mdi padre con una toolstrip con all'interno una toolstriplabel ,
ho un modulo dove ho inserito le routine per la connessione tramite socket ad
un server remoto. Funziona tutto.
Il problema stà nell'aggiornare la toolstriplabel che non mi si aggiorna con il dato
che ricevo in tempo reale ogni secondo da parte del server remoto.
Se invece copio tutte le routine del modulo direttamente sulla form Mdi si aggirona.
Perchè ???

Public Sub Ricezione_ClientSock()
Dim Campo()
Do While True
If ClientSocket.Connected = True Then
If ClientSocket.Available <> 0 Then

'RICEVE DATO
ServerStream = ClientSocket.GetStream()
Dim buffSize As Integer
Dim inStream(10024) As Byte
buffSize = ClientSocket.ReceiveBufferSize
ServerStream.Read(inStream, 0, buffSize)
Dim Dato As String = System.Text.Encoding.ASCII.GetString(inStream)

'FILTRA DATO
Select Case Dato.Substring(0, 6)

Case "COMM12"
'CONFERMA AUTENTICAZIONE RIUSCITA
Campo = Split(Dato, ";"
FMdi.Text = Campo(1) & " Connesso"


Case "COMM31"
'RICEVE DATA E ORA DAL SERVER
Campo = Split(Dato, ";"
FMdi.TsLblTime.Text = Campo(1) 'toolstriplabel

End Select
End If
End If
Ritardo(100)
Loop

End Sub

Prima del ritardo aggiungi una linea

Application.DoEvents()

purtroppo niente da fare, inoltre il doevent l'ho già inserito nella routine di ritardo.
A debug passo passo esegue la riga FMdi.TsLblTime.Text = Campo(1)
e campo(1) che ovviamente è pieno, ma poi non visualizza. Bhooo non
capisco


Public Sub Ritardo(ByVal TIME_RITARDO As Integer)
'IL VALORE RITARDO E' IN MILLISECONDI 1 SECONDO = 1000
Dim StartTime As Date = Now
Do
Application.DoEvents()
Loop Until (Now - StartTime).TotalMilliseconds > TIME_RITARDO
End Sub

Bisogna capire come è organizzato tutto il programma ... ad esempio, dove sta la Ricezione_ClientSock ?

la gestione del socket come dicevo si trova in un modulo.
La label FMdi.TsLblTime si trova sulla form mdi padre.
Potrebbe dipendere dalla riga :
Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf Ricezione_ClientSock)
ctThread.Start()

che apre un nuovo thread ??



Option Explicit On
Imports System.Net.Sockets
Imports System.Text

Module M_Socket
'DICHIARAZIONE OGGETTI SOCKET
Dim ClientSocket As TcpClient 'Variabile client
Dim ServerStream As NetworkStream 'Variabile flusso di dati client-server

Public Sub Connessione_ClientSock()
Try
ClientSocket = New TcpClient
ClientSocket.Connect(IPServer, PortaServerSock)
Call Ritardo(100)
Call Richiesta_autorizzazione()
Catch ex As Exception
ClientSocket.Close()
MessageBox.Show("errore nella connessione sock con il server"
End Try
End Sub

Public Sub Richiesta_autorizzazione()
'DICHIARAZIONE VARIABILI
Dim Stringa As String
'MANDA DATI AUTENTICAZIONE AL SERVER
If ClientSocket.Connected Then
Stringa = "COMM11" & ";" & UserSock & ";" & PassSock & ";" & ReleasePrg & ";"
serverStream = ClientSocket.GetStream()
Dim outStream As Byte() = _
System.Text.Encoding.ASCII.GetBytes(Stringa)
serverStream.Write(outStream, 0, outStream.Length)
serverStream.Flush()
'REINDIRIZZA LE RISPOSTE DAL SERVER ALLA ROUTINE Ricezione_ClientSock
Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf Ricezione_ClientSock)
ctThread.Start()
Else
Call Chiude_Sock()
End If
End Sub

Public Sub Chiude_Sock()
Dim Stringa As String
If ClientSocket.Connected Then
Stringa = "COMM18" & ";"
ServerStream = ClientSocket.GetStream()
Dim outStream As Byte() = _
System.Text.Encoding.ASCII.GetBytes(Stringa)
ServerStream.Write(outStream, 0, outStream.Length)
ServerStream.Flush()
End If
Call Ritardo(200)
ClientSocket.Close()
End Sub

Public Sub Ricezione_ClientSock()
Dim Campo()
Do While True
If ClientSocket.Connected = True Then
If ClientSocket.Available <> 0 Then

'RICEVE DATO
ServerStream = ClientSocket.GetStream()
Dim buffSize As Integer
Dim inStream(10024) As Byte
buffSize = ClientSocket.ReceiveBufferSize
ServerStream.Read(inStream, 0, buffSize)
Dim Dato As String = System.Text.Encoding.ASCII.GetString(inStream)

'FILTRA DATO
Select Case Dato.Substring(0, 6)

Case "COMM12"
'CONFERMA AUTENTICAZIONE RIUSCITA
Campo = Split(Dato, ";"
FMdi.Text = Campo(1) & " Connesso"

Case "COMM31"
'RICEVE DATA E ORA DAL SERVER
Campo = Split(Dato, ";"
FMdi.TsLblTime.Text = Campo(1)

End Select
End If
End If
Application.DoEvents()
Ritardo(100)
Loop

End Sub

penso proprio dipenda dall'apertura del nuovo thread perchè se lo sostituisco
con un timer per il controllo di ClientSocket.Available <> 0 aggiorna la
FMdi.TsLblTime.Text in maniera corretta.
Ora la domanda è perchè aprendo un nuovo thread mi succede che non aggiorna
la FMdi.TsLblTime.Text ?

Grazie

Ecco ... appunto ... se avessi detto che lavoravi con un thread diverso allora avremmo capito prima.

Per aggiornare un controllo da un thread diverso da quello che l'ha creato devi usare del codice opportuno.

Leggi questo

msdn.microsoft.com/en-us/library/…

ok, giusto hai ragione, ma non sapevo dipendesse da quello, perdona la mia ignoranza.
Da quello che ho capito se creo un nuovo thread non posso eseguire azioni dirette su oggetti
creati da un thread diverso, posso aggirare l'ostacolo con il metodo delegate

Private Delegate Sub DelegateAddText(ByVal str As String)
Private DelegateMdiText As New DelegateAddText(AddressOf FMdiText)

Private Sub FMdiText(ByVal Stringa As String) 'Delegate causa SockThread
FMdi.Text = Stringa & " CONNESSO"
End Sub

FMdi.Invoke(DelegateMdiText, "prova"


Cercando un pò su internet ho provato però pure a cambiare l'attributo in sta del thread
ctThread.SetApartmentState(Threading.ApartmentState.STA)

e con quest'ultimo non serve più il Delegate ma posso richiamare direttamente l'oggetto.

Non capisco bene però la differenza tra STA e MTA, Se creo un Thread con attributo STA, creo un thread indipendente dal principale o sostituisco il nuovo thread al thread princiapale?