9 lines
250 B
Text
9 lines
250 B
Text
Imports System.Threading
|
|
Module Module1
|
|
Dim rnd As New Random()
|
|
Sub Main()
|
|
Parallel.ForEach("Enjoy Rosetta Code".Split(" "), Sub(s)
|
|
Thread.Sleep(rnd.Next(25)) : Console.WriteLine(s)
|
|
End Sub)
|
|
End Sub
|
|
End Module
|