Module WorkInAmerica
    Sub Main()
        Const FedMinWage As Decimal = 5.15
        Const WorkDayHours As Decimal = 8
        Dim MyWage As Decimal = FedMinWage
        Dim MyBoss As New BossTheCompany(FedMinWage)
        Dim MyJob As New WorkInTheCompany(FedMinWage)
        Dim GoToWork As New WorkingClass(WorkDayHours)
        Dim MyOwnWork As Decimal = 8
        MyBoss.DoHalfTheWork(4)
        GoToWork.DoSomeWork(4)
        MyBoss.DoTheOtherHalf(4)
        GoToWork.DoSomeWork(4)
        GoToWork.DoSomeWork(MyOwnWork)
        GoToWork.EndWorkDay()
        Console.ReadLine()
    End Sub
End Module

Public Class BossTheCompany
    Inherits BossClass
    Public Sub New(ByVal WorkerWage As Decimal)
        MyBase.New(WorkerWage)
    End Sub
    Public Overrides Sub DoHalfTheWork( _
        ByVal HoursOfWork As Integer)
        ' Do half the boss's work
        Console.WriteLine( _
        "Doing " & Format(HoursOfWork) & _
        " hours of the boss's work!")
    End Sub
    Public Overrides Sub DoTheOtherHalf( _
        ByVal MoreHoursOfWork As Integer)
        ' Now do the other half
        Console.WriteLine("Doing " & _
        Format(MoreHoursOfWork) & _
        " more hours of the boss's work!")
    End Sub
End Class

Public Class WorkInTheCompany
    Public Sub New(ByVal WorkerWage As Decimal)
        Const FedTax As Decimal = 0.35
        Const BenefitsDeduction As Decimal = 0.2
        Dim ActualWage As Decimal = WorkerWage - _
            (WorkerWage * FedTax) - _
            (WorkerWage * BenefitsDeduction)
        Console.WriteLine( _
        "A new worker was hired! The worker gets: " & _
        FormatCurrency(ActualWage) & " per hour!")
    End Sub
End Class

Public MustInherit Class BossClass
    Private BossWage As Decimal = WorkerWage * 400
    Public Sub New(ByVal WorkerWage As Decimal)
        Console.WriteLine( _
            "A new boss was hired! The boss gets: " & _
            FormatCurrency(BossWage) & " per hour!")
    End Sub
    Public MustOverride Sub DoHalfTheWork( _
        ByVal Workload As Integer)
    Public MustOverride Sub DoTheOtherHalf( _
        ByVal Morework As Integer)
End Class

Public NotInheritable Class WorkingClass
    Dim WorkTimeLeft As Integer
    Dim NormalWorkHours As Integer
    Public Sub New(ByVal WorkHours As Decimal)
        Console.WriteLine("Go to work")
        WorkTimeLeft = WorkHours
        NormalWorkHours = WorkHours
        Console.WriteLine( _
            "Expected work day is: " & _
            Format(WorkHours))
    End Sub
    Public Sub DoSomeWork(ByVal WorkHours As Integer)
        WorkTimeLeft -= WorkHours
        Console.WriteLine( _
            "Time left to get work done: " & _
            Format(WorkTimeLeft))
    End Sub
    Public Sub EndWorkDay()
        Dim ActualHours As Integer
        ActualHours = NormalWorkHours - WorkTimeLeft
        Console.WriteLine("Actual work day is: " & _
            Format(ActualHours))
    End Sub
End Class