Imports System
Imports System.Threading
Class Program
Public Shared Sub Main()
Console.WriteLine("main 1")
Dim thread As Thread = New Thread(New ParameterizedThreadStart(AddressOf ThreadMethod))
thread.Start("Hello from another thread")
Console.WriteLine("main 2")
End Sub
Public Shared Sub ThreadMethod(ByVal obj As Object)
Dim message As String = CStr(obj)
Console.WriteLine(message)
End Sub
End Class
' run:
'
' main 1
' main 2
' Hello from another thread
'