Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim ts As ThreadStart = New ThreadStart(AddressOf runrun)
Dim th As List(Of Thread) = New List(Of Thread)
For i = 0 To 19
th.Add(New Thread(ts))
Next
For Each t In th
t.Start()
Next
End Sub
Sub runrun()
Console.WriteLine("らんらん")
While (1)
End While
End Sub

runrunのwhile有り無しでらんらん全部表示されるまでに物凄い差が出るんだけどどうにかならないの
taskでも同じ感じなんだが