imports System

Imports System.Threading

imports System.Collections.Generic

​

' ************************************************

' FROM : https://docs.microsoft.com/en-us/previous-versions/visualstudio/visual-studio-2010/3a86s51t(v=vs.100)?redirectedfrom=MSDN

' ************************************************

public Module Module1

​

    Class ThreadTest

​

        Public Shared Function RunNewThread() As Threading.Tasks.Task

            Dim _task As System.Threading.Tasks.Task = System.Threading.Tasks.Task.Factory.StartNew(Sub()

                console.WriteLine(("New thread started"))

                thread.Sleep(5000)

                console.WriteLine(("New thread ended"))

            End Sub)

            Return _task

        End Function

    End Class

​

    Public Sub Main()

        ' thread test #1

        dim _tasks as new list(of threading.tasks.task)

        For i As Integer = 0 To 10

            dim _newTask as threading.tasks.task = ThreadTest.RunNewThread()

            _tasks.add(_newTask)

        Next

​

        threading.tasks.task.WaitAll(_tasks.toarray())

        console.WriteLine(("All tasks completed"))

      For Each _taskItem In _tasks

            Console.WriteLine($"Task {_taskItem.Id}: {_taskItem.Status}")

        Next

​

    End Sub

End Module

​