VB.Net/Thread/Thread Priority

Thread priority: Highest and normal

Imports System
Imports System.Threading
Imports System.Text
Imports System.Windows.Forms
Public Class MainClass
  
  Public Shared Sub Main()
    Dim bThreadStart As New ThreadStart(AddressOf SubtractFromCounter)
    Dim bThread As New Thread(bThreadStart)
    
    bThread.Priority = ThreadPriority.Highest
    bThread.Start()
    
    Dim i As Integer
    Do While True
      Console.WriteLine("In main thread and count is " & i)
      i += 1
    Loop
  End Sub
  
  Shared Public Sub SubtractFromCounter()
    Dim count As Integer
    Do While True
      count -= 1
      Console.WriteLine("Am in another thread and counter  =" _
      & count)
    Loop
  End Sub
End Class

Thread Priority List

Imports System
Imports System.Drawing
Imports System.Threading
Imports System.Windows.Forms
Imports System.IO

public class MainClass
   Shared Sub Main()
        Dim Thrd As Thread
        Dim TStart As New ThreadStart(AddressOf BusyThread)
        Thrd = New Thread(TStart)
        Thrd.Priority = ThreadPriority.Highest
        "ThreadPriority.AboveNormal
        "ThreadPriority.Normal
        "ThreadPriority.BelowNormal
        "ThreadPriority.Lowest
        Thrd.Start()
        Console.WriteLine(Thrd.ThreadState.ToString("G"))
        Console.WriteLine("Thrd.IsAlive " & Thrd.IsAlive)
        If Thrd.IsAlive Then
            Thrd.Abort()
            Thrd.Join()
        End If
   End Sub
   Shared Sub BusyThread()
        While True
            "Console.Write("thread ")
        End While
    End Sub
End Class