VB.Net by API/System.Threading/ThreadStart

New ThreadStart

<source lang="vbnet"> 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
       Thrd.Start()

  End Sub
  Shared Sub BusyThread()
       While True
           Console.WriteLine("in thread")
       End While
   End Sub

End Class

 </source>