' pthread.vb Imports System Imports System.Threading Class ThreadSample2 Shared Sub worker(ByVal o As Object) ' キャストが必要 Dim message As String = CType(o, String) For i As Integer = 1 To 5 Console.WriteLine(message) Next End Sub Shared Sub Main() Dim t As Thread = new Thread(new ParameterizedThreadStart(AddressOf worker)) ' デリゲートのインスタンス化は省略可 ' Dim t As New Thread(AddressOf worker) t.Start("別のスレッド") Console.WriteLine("スレッドを開始しました") ' 出力例: ' スレッドを開始しました ' 別のスレッド ' 別のスレッド ' 別のスレッド ' 別のスレッド ' 別のスレッド End Sub End Class ' コンパイル方法:vbc pthread.vb