Imports System

Public Module Module1

    Public Sub Main()

        Console.Write("Trying True: ")

        TestLoss(New Loss With { .ContinueToPaySalary = True })

        Console.Write("Trying False: ")

        TestLoss(New Loss With { .ContinueToPaySalary = False })

        Console.Write("Trying Nothing: ")

        TestLoss(New Loss With { .ContinueToPaySalary = Nothing })

    End Sub

    Private Sub TestLoss(CompLoss As Loss)

        If CompLoss.ContinueToPaySalary = 1 Then

            Console.WriteLine("First")

        ElseIf CompLoss.ContinueToPaySalary = 0 Then

            Console.WriteLine("Second")

        Else

            Console.WriteLine("Third")

        End If

    End Sub

    Class Loss 

        Public Property ContinueToPaySalary As Boolean

    End Class

End Module