K@̉𓚁B1VB.NETŁiVB01.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")
        Tom.Work()
    End Sub

End Module
