Imports System.Threading
Module Module1
Sub Main()
Dim objThread As Thread
objThread = Thread.CurrentThread
With objThread
Console.WriteLine("Apartment State: {0}", .ApartmentState)
Console.WriteLine("Current Context: {0}", .CurrentContext)
Console.WriteLine("Current Culture: {0}", .CurrentCulture)
Console.WriteLine("Current Principal: {0}", .CurrentPrincipal)
Console.WriteLine("Current Thread: {0}", .CurrentThread)
Console.WriteLine("Current UI Culture: {0}", .CurrentUICulture)
Console.WriteLine("Is Alive: {0}", .IsAlive)
Console.WriteLine("Is Background: {0}", .IsBackground)
Console.WriteLine("Is Thread Pool Thread: {0}", .IsThreadPoolThread)
Console.WriteLine("Name: {0}", .Name)
Console.WriteLine("Priority: {0}", .Priority)
Console.WriteLine("Thread State: {0}", .ThreadState)
End With
End Sub
End Module