Imports System Imports System.Threading Public Class List1_1 Public Shared Sub Main() Dim threadA As New Thread( _ New ThreadStart(AddressOf ThreadMethod)) ' @ threadA.Start() ' A For i As Integer = 0 To 99 Thread.Sleep(5) Console.Write(" B ") Next i End Sub ' 別スレッドで動作させるメソッド Private Shared Sub ThreadMethod() For i As Integer = 0 To 99 Thread.Sleep(5) Console.Write(" A ") Next i End Sub End Class