langs a-z

Task/Concurrent-computing/Visual-Basic-.NET/concurrent-computing.visual

@@ -0,0 +1,26 @@
+Imports System.Threading
+
+Module Module1
+   Public rnd As New Random
+
+   Sub Main()
+       Dim t1 As New Thread(AddressOf Foo)
+       Dim t2 As New Thread(AddressOf Foo)
+       Dim t3 As New Thread(AddressOf Foo)
+
+       t1.Start("Enjoy")
+       t2.Start("Rosetta")
+       t3.Start("Code")
+
+       t1.Join()
+       t2.Join()
+       t3.Join()
+
+   End Sub
+
+   Sub Foo(ByVal state As Object)
+       Thread.Sleep(rnd.Next(1000))
+       Console.WriteLine(state)
+   End Sub
+
+End Module