KẢ𓚁B2VB.NETŁiVB02.vbj

Imports System
Imports System.Threading

Public Class Staff
    Dim Name As String
    Dim Count As Int16

    Public Sub New(ByVal Name As String)
        Me.Name = Name
        Count = 0
    End Sub

    Public Sub Work()
        While Count < 5
            Count = Count + 1
            Console.WriteLine("{0} is working: {1}", Name, Count)
            Thread.Sleep(1000)
        End While
    End Sub
End Class

Module Module1

    Sub Main()
        Dim Tom As Staff = New Staff("Tom")
        Dim Jim As Staff = New Staff("Jim")
        Dim TomStart As ThreadStart = New ThreadStart(AddressOf Tom.Work)
        Dim JimStart As ThreadStart = New ThreadStart(AddressOf Jim.Work)
        Dim TomsThread As Thread = New Thread(TomStart)
        Dim JimsThread As Thread = New Thread(JimStart)
        TomsThread.Start()
        JimsThread.Start()
    End Sub

End Module