Setting a Thread Name (Managed)

Public Class Form1 : Inherits Form
    Class Needle
        ' This method will be called when the thread is started
        Sub Baz()
            Console.WriteLine("Needle Baz is running on another thread")
        End Sub
    End Class

    Public Shared Sub Main()
        Console.WriteLine("Thread Simple Sample")
        Dim oNeedle As New Needle()
        ' Create a Thread object 
        Dim oThread As New Thread(AddressOf oNeedle.Baz)
        ' Set the Thread name to "MainThread"
        oThread.Name = "MainThread"
        ' Starting the thread invokes the ThreadStart delegate
        oThread.Start()
    End Sub
End Class