Public Class SupervisorCommThread

   ' variabile che ferma il ciclo
   Private Shared m_Stop As Boolean = False

   Friend Shared Sub StopThread()
      m_Stop = True
   End Sub

   Public Shared Sub SupervisorCommThreadFunction()

      ' creo classe di comunicazione
      Dim m_SupervisorComm As SupervisorComm = New SupervisorComm()

      While Not m_Stop
         ' eseguo ciclo principale che tiene vivo il thread
         m_SupervisorComm.Timer_Tick()
         Threading.Thread.Sleep(TimeSpan.FromMilliseconds(1000))
      End While

   End Sub

End Class