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>