Mega Code Archive

 

Categories / VB.Net by API / System Threading

 

New ThreadStart

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