Imports System.Diagnostics Module Module1 Sub Main() Console.WriteLine("Thread Count: {0}", Process.GetCurrentProcess().Threads.Count) End Sub End Module
Thread Count: 3