#Region " New Thread "
 
    Public Thread_is_completed As Boolean = False
    Public Want_to_cancel_thread As Boolean = False
 
    ' Usage:
    '
    Dim Thread_Var_Name As System.Threading.Thread = New Threading.Thread(AddressOf MiThread)
    ' Thread_Var_Name.IsBackground = True
    ' Thread_Var_Name.Start()
    ' Thread_Var_Name.Abort()
    ' Thread_Var_Name.Suspend()
    ' Thread_Var_Name.Resume()
 
    ' While Not Thread_is_completed = True
    '    Application.DoEvents()
    ' End While
 
    Sub MiThread()
        ' Do something inside this thread
    End Sub
 
#End Region
 
 

Public Class Class1
 
    Public Shared SharedVar As String = "Test" ' Esta la podrás leer
    Public Var As String = "Test"' Esta no la podrás leer
 
End Class

Imports WindowsApplication1.Class1
 
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MsgBox(SharedVar) ' String: "Test"
        MsgBox(Var) ' Exception: Reference to a non-shared member requires an object reference
    End Sub
End Class